Database Users

Mortscript Sendkeys Help

Hi,
am trying to use Mortscript to automate some key presses on my E650. The script is below.
It gets so far to opening settings.exe and then nothing happens.
What am I doing wrong?
RunCheck = 0
While (1)
HandsFreeState = RegRead("HKLM", "System\State\Hardware", "Handsfree")
If (HandsFreeState = 1 && RunCheck = 0)
Run "\Windows\Settings.exe"
Sleep 2000
SendKeys("6")
Sleep 2000
SendKeys("3")
Sleep 2000
SendKeys("1")
RunCheck = 1
EndIf
If (HandsFreeState = 0 && RunCheck = 1)
# - Enter any code you wish to execute on disconnect here.
ToggleDisplay(0)
RunCheck = 0
EndIf
Sleep (1000)
EndWhile

I've ran into this before.
you might try sending a mouse click to the field that you want the numbers inputed to. (this insures that the field has focus)

Locking/Unlocking device

Hi All
I am searching for a way to lock/unlock the device. I had found several undocumented functions in aygshell.dll (please note, that I could reveal only function names and numbers, and parameters were found practically, but this information is not verified and probably is not correct).
Code:
/*
Used to lock/unlock the phone
0 - E_FAIL
1 - Unlocks the device, but do not update plugin icon on Today screen and do not closes Unlock.
When user press Unlock - it does not ask to press unlock button and unlocks the device
2 - Locks the device, changes lock plugin icon on Today screen
3 - same as 1
4 - if device is locked, there is no way to unlock it (though Unlock button can be pressed,
no unlock screen is available),
if device is unlocked, icon changed to locked but device is still unlocked and lock plugin hangs
5 - same as 4
6 - Locks the device with no posibility to unlock
7 - same as 6
8 - E_FAIL
9 - if unlocked then as 4, if locked as 1
*/
HRESULT SHLock(DWORD dwCommand); // function #121
/* Shows Unlock dialog
0 - unknown
1 - sometimes ask to press Unlock, sometimes - press Cancel
else - ask to press cancell then unlock
*/
HRESULT SHUnlock(DWORD dwParam); // function #122
/* Returns in pdwState current lock state
0 - Unlocked
2 - Locked
*/
HRESULT SHIsLocked(LPDWORD pdwState); // function #123
/* I think it writes the lock state, probably has more parameters
dwParam should be greater then 1;
current state is written to dwOldState
*/
HRESULT SHWriteLockState(DWORD dwNewState, LPDWORD dwOldState); // function #124
/* I don't know how does this work
It should be called after SHWriteLockState.
when dwParam = 2 it unlocks the phone
*/
HRESULT SHClearLockState(DWORD dwParam); // function #125
To unlock the device I call ShLock(1) and then send the emulate pressing menu button Unlock (I do not provide error handling for simplicity):
Code:
HRESULT hr;
HWND hWnd;
hr = SHLock(1);
hWnd = ::GetParent(::GetParent(WindowFromPoint(pt)));
hr = ::PostMessage(hWnd, WM_COMMAND, 0x409, (LPARAM) hWnd);
This code works well on my emulator, however it doesn't work on a customer's HTC pocketpc and I have no possibility to check this on real device.
However standard Phone application does not send that message to unlock window, so I think there are other set of parameters to some functions.
Please help me to find out how to deal with that functions, or how to unlock the phone in other way.
To make it easier I will provide a declaration code below.
Code:
#define LOCKSTATE_UNLOCKED 0
#define LOCKSTATE_LOCKED 2
HRESULT (*SHLock)(DWORD dwValue);
HRESULT (*SHUnlock)(DWORD dwValue);
HRESULT (*SHIsLocked)(LPDWORD pStatus);
HRESULT (*SHWriteLockState)(DWORD dwParam, LPDWORD pPreviousState);
HRESULT (*SHClearLockState)(DWORD pState);
...
HMODULE hLib = LoadLibrary(L"aygshell.dll");
*(FARPROC*) &SHLock = GetProcAddress(hLib, (LPCWSTR) 121);
*(FARPROC*) &SHUnlock = GetProcAddress(hLib, (LPCWSTR) 122);
*(FARPROC*) &SHIsLocked = GetProcAddress(hLib, (LPCWSTR) 123);
*(FARPROC*) &SHWriteLockState = GetProcAddress(hLib, (LPCWSTR) 124);
*(FARPROC*) &SHClearLockState = GetProcAddress(hLib, (LPCWSTR) 125);
...

[WinXP Script] Extend Search Companion

Annoyed by the fact that Search Companion doesn't return the text string you specified even though you indicated All Files & Folders?
This handy script allows you to extend the PersistenHandlers to include other extension. In my case, I added: provxml and rgu. Copy and paste the following code into notepad and save as a .VB script (ex: xp_persisthandler.vbs). Execute the script and specifiy the file extension you wish to include in Search Companion.
Code:
'Add files to Search for files containing text
'© Doug Knox - 11/04/2001
'This code may be freely distributed/modified
Option Explicit
On Error Resume Next
Dim WshShell, N, P, P1, P2, ItemType, MyBox, FileType, Title, Prompt, RegKey, X
Set WSHShell = WScript.CreateObject("WScript.Shell")
P = "HKEY_CLASSES_ROOT\."
P1 = "\PersistentHandler\"
N = "{5e941d80-bf96-11cd-b579-08002b30bfeb}"
Prompt = "Enter the file extension for the file you wish to add." & vbCR
Prompt = Prompt & "Examples: txt, adm, inf"
Title = "Enter File Type"
FileType = InputBox(Prompt, Title, "")
If FileType = "" Then
MyBox = MsgBox("You left the box blank.",4096,"Error.")
Set WshShell = Nothing
WScript.Quit
Else
'Check to see if there is already a PersistentHandler default value
RegKey = P & FileType & P1
X = WshShell.RegRead(RegKey)
End If
'MyBox = MsgBox("The PersistentHandler value for ." & FileType & " is: " & X,4096,"Results")
'Set WshShell = Nothing
If X = N Then
MyBox = MsgBox("This value already exists, and is correct." & vbCR & "No Changes were made.", 4096, "No Changes")
Set WshShell = Nothing
WScript.Quit
End If
If X <> N AND X <> "" Then
MyBox = MsgBox("The Persistent Handler value already exists and is different." & vbCR & "No changes were made.", 4096, "No Changes")
Set WshShell = Nothing
WScript.Quit
End If
If Err.Number <> 0 Then
WshShell.RegWrite RegKey, N
MyBox = MsgBox("The Registry has been updated." & vbCR & "Restart your computer.", 4096, "Done")
Set WshShell = Nothing
End If

Help With API WM5

Hi
i begin in level of system of WM5.
I have make some software in language C for WM5/WM6.
I search help for recover system information (network GPRS or WIFI, enumerate Available Access Points ,signalStrength,...),
if you know api for that thank you
Sorry for my english i say it is little poor

Hi
I have find solution i used i post solution if you are interessted:
pQueryOid = (PNDISUIO_QUERY_OID) Buffer;
pQueryOid->Oid = OID_802_11_BSSID_LIST;
pQueryOid->ptcDeviceName = /* your AdapterName*/
//-------------------------------------------------------------------------------------------------------------------------------------------------------
//creates, opens, or truncates a file, COM port, device, service, or console. It returns a handle that you can use to access the object.
handleDevice = CreateFile(NDISUIO_DEVICE_NAME,
GENERIC_READ|GENERIC_WRITE, 0,
NULL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
(HANDLE) INVALID_HANDLE_VALUE);
if (handleDevice == INVALID_HANDLE_VALUE)
return NULL;
//sends a control code directly to a specified device driver, causing the corresponding device to perform the corresponding operation.
if (DeviceIoControl(handleDevice,
IOCTL_NDISUIO_QUERY_OID_VALUE,
(LPVOID) pQueryOid,
8192,
(LPVOID) pQueryOid,
8192,
&bytesWritten,
NULL))

disable / enable Java scripts in Internet Explorer (PIE)

just fyi for somebody who needs this:
HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Security_RunScripts = 1 or 0 (enable or disable)