Windows | My Site

VMware Windows 10 Guest Shared Folder Fixer

By My Site
Link: https://sskaje.me/2016/08/vmware-windows-10-guest-shared-folder-fixer/

Windows 10 Shared folder hang in VMware Fusion.
According to @steve goddard, this is caused by Microsoft upgrades destroying registry settings.

I wrote a VBScript check and fix the registry.

github project: https://github.com/sskaje/vmware_windows_10_shared_folder_fixer

'
' VMware Fusion/Workstation Shared Folder Fixer
' 
' Author: sskaje
'
'

' Ask for Administrator Access
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , WScript.ScriptFullName & " /elevate", "", "runas", 1
  WScript.Quit
End If

' Registry related variables
Dim objShell, regNetworkProviderOrder, regValueType, currentValue, vmhgfs, comma
regNetworkProviderOrder = "HKLM\SYSTEM\CurrentControlSet\Control\NetworkProvider\Order\ProviderOrder"
regValueType = "REG_SZ"
vmhgfs = "vmhgfs"
comma = ","

Set objShell = WScript.CreateObject("WScript.Shell")
currentValue = objShell.RegRead(regNetworkProviderOrder)

Dim searchPos, needWriteBack
searchPos = InStr(currentValue, vmhgfs)
needWriteBack = False

If searchPos = 0 Then 
	' If vmhgfs is not found in registry value, prepend 
	currentValue = vmhgfs + comma + currentValue
	needWriteBack = True
ElseIf searchPos <> 1 Then 
	' If vmhgfs is not at the beginning, move it there
	needWriteBack = True
	
	Dim providerSets, x
	providerSets = Split(currentValue, comma)
	currentValue = vmhgfs
	For Each x in providerSets
		Do
			If x = vmhgfs Then Exit Do					' Skip if current is vmhgfs
			If x = "" Then Exit Do						' Skip if current is empty string
			currentValue = currentValue + comma + x		' Append to new value
		Loop While False
	Next
' Else ' If vmhgfs is at the beginning, skip 
End If


If needWriteBack = True Then
	' Write Registry
	objShell.RegWrite regNetworkProviderOrder, currentValue, regValueType
End If

WScript.Echo "Registry has been fixed. Please try Shared Folder."

' VMware Fusion/Workstation Shared Folder Fixer

' Author: sskaje

' Ask for Administrator Access

If Not WScript.Arguments.Named.Exists("elevate") Then

CreateObject("Shell.Application").ShellExecute WScript.FullName _

, WScript.ScriptFullName & " /elevate", "", "runas", 1

WScript.Quit

End If

' Registry related variables

Dim objShell, regNetworkProviderOrder, regValueType, currentValue, vmhgfs, comma

regNetworkProviderOrder = "HKLM\SYSTEM\CurrentControlSet\Control\NetworkProvider\Order\ProviderOrder"

regValueType = "REG_SZ"

vmhgfs = "vmhgfs"

comma = ","

Set objShell = WScript.CreateObject("WScript.Shell")

currentValue = objShell.RegRead(regNetworkProviderOrder)

Dim searchPos, needWriteBack

searchPos = InStr(currentValue, vmhgfs)

needWriteBack = False

If searchPos = 0 Then

' If vmhgfs is not found in registry value, prepend

currentValue = vmhgfs + comma + currentValue

needWriteBack = True

ElseIf searchPos <> 1 Then

' If vmhgfs is not at the beginning, move it there

needWriteBack = True

Dim providerSets, x

providerSets = Split(currentValue, comma)

currentValue = vmhgfs

For Each x in providerSets

If x = vmhgfs Then Exit Do ' Skip if current is vmhgfs

If x = "" Then Exit Do ' Skip if current is empty string

currentValue = currentValue + comma + x ' Append to new value

Loop While False

' Else ' If vmhgfs is at the beginning, skip

End If

If needWriteBack = True Then

' Write Registry

objShell.RegWrite regNetworkProviderOrder, currentValue, regValueType

End If

WScript.Echo "Registry has been fixed. Please try Shared Folder."

VMware Windows 10 Guest Shared Folder Fixer by My Site: https://sskaje.me/2016/08/vmware-windows-10-guest-shared-folder-fixer/

Click Button and Read Text from Other Program on Windows

By My Site
Link: https://sskaje.me/2016/05/click-button-read-text-program-windows/

I have a protected application on windows, normally my clients have to run that program, click a button, copy some text from another text control, upload to somewhere…

I need to find a solution simulate button click and read the text control.

There are two buttons, generate and exit, and a text control.

Here is what I did in C++, build under Windows XP + Visual C++ 6.0/7.0 in CLI.

1 Run the program.

	STARTUPINFO si;
	PROCESS_INFORMATION pi;
	ZeroMemory(&si, sizeof(si));
	ZeroMemory(&pi, sizeof(pi));
	
	if (!CreateProcess(
		NULL,
		(LPTSTR)  "GetResult.exe",
		NULL,
		NULL,
		false,
		CREATE_NO_WINDOW,
		NULL,
		NULL,
		&si,
		&pi
	)) {
		DWORD errval = GetLastError();
		cout << "CreateProcess Failed: " << errval << endl;
		return 2;
	}

	Sleep(500);

STARTUPINFO si;

PROCESS_INFORMATION pi;

ZeroMemory(&si, sizeof(si));

ZeroMemory(&pi, sizeof(pi));

if (!CreateProcess(

NULL,

(LPTSTR) "GetResult.exe",

NULL,

false,

CREATE_NO_WINDOW,

NULL,

&si,

&pi

)) {

DWORD errval = GetLastError();

cout << "CreateProcess Failed: " << errval << endl;

return 2;

}

Sleep(500);

Sleep is required here, to ensure that you can find correct control.

2 Find controls

	int ctrlBtnGet = 0x01;
	int ctrlTxtResult = 0x03e8;
	int ctrlBtnExit = 0x02;

	HWND wGetWindow = FindWindow(0, "Window Title");	
	HWND wBtnGet = GetDlgItem(wGetWindow, ctrlBtnGet);
	HWND wBtnExit = GetDlgItem(wGetWindow, ctrlBtnExit);	
	HWND wTxtResult = GetDlgItem(wGetWindow, ctrlTxtResult);

int ctrlBtnGet = 0x01;

int ctrlTxtResult = 0x03e8;

int ctrlBtnExit = 0x02;

HWND wGetWindow = FindWindow(0, "Window Title");

HWND wBtnGet = GetDlgItem(wGetWindow, ctrlBtnGet);

HWND wBtnExit = GetDlgItem(wGetWindow, ctrlBtnExit);

HWND wTxtResult = GetDlgItem(wGetWindow, ctrlTxtResult);

These CtrlID can be read by many *Spy app on windows.

3 Perform click and read from text control

In my case, Sleep is also required after BM_CLICK was sent to target program, otherwise I may have to click more than once.
So, I wrote a loop

	int max_retry = 5;
	
	int retry = 0;
	
	int length;
	char buf[2048] = {0};
	
	do {
		SendMessage(wBtnGet, BM_CLICK, 0, 0);
		Sleep(300);
	
		length = (int) SendMessage(wTxtResult, WM_GETTEXTLENGTH, 0, 0);
		
		if (length > 0) {
			SendMessage(wTxtResult, WM_GETTEXT, sizeof(buf) / sizeof(buf[0]), (LPARAM) buf);
			printf("%s\n", buf);
			break;
		}
		
	} while (++retry < max_retry);

int max_retry = 5;

int retry = 0;

int length;

char buf[2048] = {0};

do {

SendMessage(wBtnGet, BM_CLICK, 0, 0);

Sleep(300);

length = (int) SendMessage(wTxtResult, WM_GETTEXTLENGTH, 0, 0);

if (length > 0) {

SendMessage(wTxtResult, WM_GETTEXT, sizeof(buf) / sizeof(buf[0]), (LPARAM) buf);

printf("%s\n", buf);

break;

}

} while (++retry < max_retry);

I tried GetDlgItemText and GetWindowText, neither of these two works to get text from the control.
WM_GETTEXTLENGTH and then WM_GETTEXT is the best choice so far as I know.

4 Click Exit

	SendMessage(wBtnExit, BM_CLICK, 0, 0);

1	SendMessage(wBtnExit, BM_CLICK, 0, 0);

Click Button and Read Text from Other Program on Windows by My Site: https://sskaje.me/2016/05/click-button-read-text-program-windows/

Create Windows 7/8 Bootable USB Drive on OS X

By My Site
Link: https://sskaje.me/2014/02/create-windows-7-8-bootable-usb-drive-on-osx/

This note works for Windows (e.g. Windows 7, Windows 8, …), Linux … ISO image only, and all commands in Terminal.

If you’re interested in using Disk Utility, try this: Create OS X Mavericks Bootable USB Drive from AppStore Release, but DON’T forget to unmount partitions.

To launch a Terminal, simply open Spotlight and type Terminal, in most cases, you can see Terminal listed after ‘Ter‘.

For Windows 7/8 or later, Boot Camp Assistant is the BEST tool.
In ‘Select Tasks‘, CHECK ‘Create a Windows 7 or later version disk’ and UNCHECK all others.
In ‘Create Bootable USB Drive for Windows Installation‘, choose the right usb destination disk.

Continue reading “Create Windows 7/8 Bootable USB Drive on OS X” »

Create Windows 7/8 Bootable USB Drive on OS X by My Site: https://sskaje.me/2014/02/create-windows-7-8-bootable-usb-drive-on-osx/