#include <GUIConstants.au3>



$Form1_1 = GUICreate("EMETIZE GUI TOOL", 830, 366, 240, 176)
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("EMETIZE GUI ", 320, 8, 124, 24)
GUICtrlSetFont(-1, 12, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 3)
$Label2 = GUICtrlCreateLabel("EMetize This Process", 56, 64, 182, 17)
GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$a=GUICtrlCreateInput("", 312, 64, 193, 21)
$Label3 = GUICtrlCreateLabel("De-Emetize This Process", 48, 160, 193, 17)
GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$b = GUICtrlCreateInput("", 312, 152, 201, 21)
;$Label4 = GUICtrlCreateLabel("View Emetized Process List", 48, 240, 231, 17)
;GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif")
;GUICtrlSetColor(-1, 0xFF0000)
;GUICtrlCreateInput("", 312, 232, 201, 21)
$OK = GUICtrlCreateButton("OK", 544, 64, 137, 25)
GUICtrlSetFont(-1, 8, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Exit = GUICtrlCreateButton("Exit", 344, 312, 121, 25, 0)
$DeEmetize = GUICtrlCreateButton("DeEmetize", 544, 152, 137, 25, 0)
$View = GUICtrlCreateButton("View", 544, 232, 137, 25, 0)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $OK
            if GUICtrlRead($a) = "" Then
                MsgBox(64, "Input Yoxdur!", "Input Yoxdur!")
                Exit
            Else 
                
                
                ShellExecute("EMET_conf.exe", "--add", Guictrlread($a), "" )      ; => My trouble is here.
                
                MsgBox(64, "Emetized!", Guictrlread($a) )
                EndIf
            Case $DeEmetize
                if GUICtrlRead($b) = "" Then
                    MsgBox(64, "Input Yoxdur!", "Input Yoxdur!")
                    Exit
                Else
                    run("EMET_conf.exe --delete Guictrlread($b) ")
                    MsgBox(64, "De-Emetized ", GUICtrlRead($b) )
                EndIf
            case $Exit
                Exit
            Case $View
                run("EMET_conf.exe --list ")
                
    EndSwitch
WEnd

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.ConnectionString = "driver={SQL Server};server=192.168.10.1;uid=uid;pwd=pwd"
$sqlCon.Open

; status is always 1 which means it successfully connected
$status = $sqlCon.State

; request data
$strSQL = "select * from table"
$result = $sqlCon.execute ($strSQL)

; HOW DO I DISPLAY RESULTS?
_ArrayDisplay($result)
MsgBox(0, "", $result)


$sqlCon.Close

Func MyErrFunc()

  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext _
            )

    Local $err = $oMyError.number
    If $err = 0 Then $err = -1

    $g_eventerror = $err  ; to check for after this function returns
Endfunc

#include <IE.au3>
#include <GUIConstants.au3>
#include <File.au3>

GUICreate ("Acess Website GUI",600,300)
GUISetBkColor (0x99FFCC)
GUISetState(@SW_SHOW)

GUICtrlCreateLabel("Click a button to begin...", 30, 10, 200)
GUICtrlSetFont (-1,12, 800, 2, "Arial") 

Opt("GUICoordMode",1)
$button1 = GUICtrlCreateButton ("Craigslist",  40, 60, 100)
$close = GUICtrlCreateButton ("Close",  260, 260, 80)

While 1
  $msg = GUIGetMsg()
  Select
    Case $msg = $button1
         $account="email@email.com"
         $pw="password"
      Account($account,$pw)
     Case $msg = $close
        $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
  EndSelect
WEnd 
Exit

;FUNCTIONS
Func Account($account,$pw)

$oIE = _IECreate()
_IENavigate($oIE, "https://accounts.craigslist.org/")

$o_form = _IEFormGetObjByName($oIE, "login")
$o_login = _IEFormElementGetObjByName($o_form, "inputEmailHandle")
$o_password = _IEFormElementGetObjByName($o_form, "inputPassword")

_IEFormElementSetValue($o_login,$account)
_IEFormElementSetValue($o_password, $pw)
Sleep(500)
_IEFormSubmit($o_form)
EndFunc
 

While 1
    If StringRight(GUICtrlRead($time), 2) = "PM" And StringLeft(GUICtrlRead($time), 2) > "12" Then
        $sDateTime = _DateAdd("h", 12, StringRight(GUICtrlRead($date), 4) & "/" & StringLeft(GUICtrlRead($date), 2) & "/" & StringMid(GUICtrlRead($date), 4, 2) & _
        " " & GUICtrlRead($time))
    Else
        $sDateTime = StringRight(GUICtrlRead($date), 4) & "/" & StringLeft(GUICtrlRead($date), 2) & "/" & StringMid(GUICtrlRead($date), 4, 2) & _
        " " & GUICtrlRead($time)
    EndIf
    $iTicks = _DateDiff ("s", _NowCalc(), $sDateTime) * 1000
    _TicksToTime ($iTicks, $ihour, $imin, $isec)
    If $ihour > 23 Then _AddDay ()
    StringFormat("%02i", $iday, $ihour, $imin, $isec)
    GUICtrlSetData($cnt,"Days: " & $iday & @TAB & "Hours: " & $ihour & @TAB & "Mins: " & $imin & @TAB & "Secs: " & $isec)
    If $iDay=0  And $iHour=0 And $iMin=0 And $iSec = 0 Then _Finish()
    Sleep(100)
WEnd

Func _AddDay ()
    Do
        $iday += 1
        $ihour -= 24
        If $ihour < 24 Then Return
    Until Number($ihour) < 24
EndFunc

#include <IE.au3>

;Open IE, go to Foundstone webpage with the following parameters: 0=opens webpage, 1=visible, 1=_ieloadwait
$oIE = _IECreate("https://fdxfse2.jdnet.deere.com/",0,1,1)

;Accept Certificate from Windows Security popup
;Func
    Sleep(3000)
    While 1
        $WindowTitle = WinGetTitle("","")
        Select
            Case $WindowTitle = "Security Alert"
                WinActivate("Security Alert","")
                ControlClick("Security Alert","","Button1")
            Case $WindowTitle = "Choose a digital certificate"
                WinActivate("Choose a digital certificate","")
                ControlClick("Choose a digital certificate","","Button3")
            Case $WindowTitle = "Certificate Error: Navigation Blocked"
                WinActivate("Certificate Error: Navigation Blocked","")
                _IEImgClick ($oIE, "red_shield.png", "src")
            ExitLoop
        EndSelect
    WEnd
;EndFunc
ShellExecute('"C:\Documents and Settings\' & @UserName & '\Start Menu\Programs\Accessories\Command Prompt"')
 

#Include <File.au3>
#Include <Array.au3>
Opt("SendKeyDelay", 45) ; typing delay 45 milliseconds
Run("Notepad.exe")
Sleep(500)
WinWaitActive("Untitled")
Sleep(500)
$num=_FileListToArray("L:\Client\LLEU\Daily\Print\PDF Copies","*",1)
For $i=1 To $num[0]
    ControlSend("Untitled","","Edit1",$num[$i]&" ")
    Sleep(500)
    $file=StringTrimRight($num[$i],12)
    Sleep(500)
    Run("Notepad.exe C:\Program Files\Simpo PDF to Text\Output\"&$file&"Record Count.txt")
    WinWaitActive($file&"Record Count.txt")
    Sleep(500)
    $ireland=StringTrimRight($num[$i],4)
    Sleep(500)
    $ireland2=StringTrimLeft($ireland,16)
    Sleep(500)
    $result=StringRegExp("C:\Program Files\Simpo PDF to Text\Output\"&$file&"Record Count.txt",$ireland2&": ([1-9]{1,3})",1)
    Sleep(500)
    ControlSend("Untitled","","Edit1",$result[0]&" records"&@CR)
    WinClose($file&"Record Count.txt")
    Sleep(1500)
    Next