Mobile

Imports Microsoft.WindowsMobile.PocketOutlook.MessageInterception<br />
Imports HWButton.TAPI<br />
Imports Microsoft.WindowsMobile.PocketOutlook<br />
Imports Microsoft.Win32<br />
Imports System.Runtime.InteropServices<br />
<br />
<br />
Module Module1<br />
    Public SMSCap As MessageInterceptor = Nothing<br />
    Dim imsi As String<br />
    Dim Recipient As String<br />
    Const RegKey As String = "Software\InterCept\WM65"<br />
    Public SMSSend As SmsMessage<br />
    Dim ResponseNum As String<br />
    Dim oldimsi As String<br />
    Public Class ProcessInfo<br />
        Public hProcess As IntPtr<br />
        Public hThread As IntPtr<br />
        Public ProcessID As IntPtr<br />
        Public ThreadID As IntPtr<br />
    End Class<br />
<br />
    <DllImport("CoreDll.DLL", SetLastError:=True)> _<br />
    Private Function CreateProcess(ByVal imageName As [String], ByVal cmdLine As [String], ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal boolInheritHandles As Int32, ByVal dwCreationFlags As Int32, _<br />
    ByVal lpEnvironment As IntPtr, ByVal lpszCurrentDir As IntPtr, ByVal si As Byte(), ByVal pi As ProcessInfo) As Integer<br />
    End Function<br />
<br />
    <DllImport("coredll")> _<br />
    Private Function CloseHandle(ByVal hObject As IntPtr) As Boolean<br />
    End Function<br />
<br />
    <DllImport("coredll")> _<br />
    Private Function WaitForSingleObject(ByVal hHandle As IntPtr, ByVal dwMilliseconds As UInteger) As UInteger<br />
    End Function<br />
<br />
    <DllImport("coredll.dll", SetLastError:=True)> _<br />
    Private Function GetExitCodeProcess(ByVal hProcess As IntPtr, ByRef lpExitCode As Integer) As Integer<br />
    End Function<br />
<br />
    Private Sub LaunchApp(ByVal strPath As String, ByVal strParms As String)<br />
        Dim pi As New ProcessInfo()<br />
        Dim si As Byte() = New Byte(127) {}<br />
        CreateProcess(strPath, strParms, IntPtr.Zero, IntPtr.Zero, 0, 0, _<br />
        IntPtr.Zero, IntPtr.Zero, si, pi)<br />
        ' This line can be commented out if you do not want <br />
        ' to wait for the process to exit<br />
        'WaitForSingleObject(pi.hProcess, &HFFFFFFFF)<br />
        Dim exitCode As Integer = 0<br />
        GetExitCodeProcess(pi.hProcess, exitCode)<br />
        CloseHandle(pi.hProcess)<br />
        CloseHandle(pi.hThread)<br />
        Exit Sub<br />
    End Sub<br />
<br />
    Private Sub SMSCap_MessageReceived(ByVal sender As Object, ByVal e As MessageInterceptorEventArgs)<br />
        Dim sender1<br />
        Dim comms<br />
        Dim command As String<br />
        Dim req As String<br />
        sender1 = ((DirectCast(e.Message, SmsMessage).From.Address))<br />
        Recipient = (sender1.ToString)<br />
        comms = ((DirectCast(e.Message, SmsMessage).Body))<br />
        command = (comms.ToString)<br />
        '*************** Commands ***********<br />
        req = (command.Substring(4, command.Length - 4)).ToLower<br />
        Select Case req<br />
            Case ("prg")<br />
                MsgBox("It works")<br />
        End Select<br />
    End Sub<br />
<br />
    Private Sub VerifyKeys()<br />
        Dim HKCU As RegistryKey = Registry.LocalMachine<br />
        Dim VeriKey As RegistryKey = HKCU.OpenSubKey(RegKey, True)<br />
        ResponseNum = VeriKey.GetValue("RPNum")<br />
    End Sub<br />
    Sub Main()<br />
        If MessageInterceptor.IsApplicationLauncherEnabled("InterCept") Then<br />
            SMSCap = New MessageInterceptor("InterCept")<br />
        Else<br />
            SMSCap = New MessageInterceptor(InterceptionAction.NotifyAndDelete)<br />
            SMSCap.MessageCondition = New MessageCondition(MessageProperty.Body, MessagePropertyComparisonType.StartsWith, "cmd", False)<br />
            SMSCap.EnableApplicationLauncher("InterCept", "\\Program Files\\DeviceApplication1\\DeviceApplication1.exe")<br />
        End If<br />
        AddHandler SMSCap.MessageReceived, AddressOf SMSCap_MessageReceived<br />
        PhoneInfo.Get(Nothing, Nothing, Nothing, Nothing, imsi)<br />
        Dim HKCU As RegistryKey = Registry.LocalMachine<br />
        Dim VeriKey As RegistryKey = HKCU.OpenSubKey(RegKey, True)<br />
        If imsi = VeriKey.GetValue("RegCode") Then<br />
<br />
        Else<br />
            SMSSend = New SmsMessage(ResponseNum, "ATT! Sim changed on phone. Send Tracking commands to this number!")<br />
            SMSSend.Send()<br />
        End If<br />
    End Sub<br />
<br />
End Module<br />

hookDeleg = new HookProc(HookProcedure);
            hHook = WinApi.SetWindowsHookEx(WinApi.WH_KEYBOARD_LL, hookDeleg, WinApi.GetModuleHandle(null), 0);
            if (hHook == 0)
            {
                MessageBox.Show("Keyboard Hook Failed", "VolumeKeys Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1);
                Application.Exit();
            }

NDIS_802_11_BSSID_LIST* m_pBSSIDList;
m_pBSSIDList = (NDIS_802_11_BSSID_LIST *) VirtualAlloc (NULL,
                                                        sizeof (NDIS_802_11_BSSID_LIST) * NUMBEROF_BSSIDS,
                                                        MEM_RESERVE | MEM_COMMIT,
                                                        PAGE_READWRITE) ;


memset (m_pBSSIDList, 0, sizeof (NDIS_802_11_BSSID_LIST) * NUMBEROF_BSSIDS);

// Do Scan
oidcode = OID_802_11_BSSID_LIST_SCAN;
DeviceIoControl (m_handle,
		IOCTL_NDIS_QUERY_GLOBAL_STATS,
		&oidcode,
		sizeof(oidcode),
		(ULONG *) NULL,
		0,
		&bytesreturned,
		NULL);

Sleep (6100); // According to the documentation the result of the scan should be valid after 6 seconds.
// The original line was delay of 2000 mSec. find out why...
//Sleep (2000);

// Read scan results
oidcode = OID_802_11_BSSID_LIST;
if (DeviceIoControl(    m_handle,
			IOCTL_NDIS_QUERY_GLOBAL_STATS,
			&oidcode,
			sizeof(oidcode),
			(ULONG *) m_pBSSIDList,
			sizeof(NDIS_802_11_BSSID_LIST) * NUMBEROF_BSSIDS,
			&bytesreturned,
			NULL) == 0)
{
	// List failed
	return NULL;
}
else
{
	return m_pBSSIDList;
}