Leaderboard

You made an anti-debugger but can't search Google?! OK.

I read post of Insolence, but have more people cant use or use it but it do nothing, me too. Final I edited code to this function and now can run perfect! I tested with Paint Thank Insolence! I can share my edit for all. ;----------------------------Test-------------------------- For $i = 200 to 600 ;ControlClick("untitled - Paint", "", "[CLASS:Afx:1000000:8; INSTANCE:1]", "Left", 1, $i, $i) $handle = ControlGetHandle(WinGetHandle("untitled - Paint"), '', '[CLASS:Afx:1000000:8;INSTANCE:1]') _MouseClickPlus($handle, "Left", $i, $i,1) Next ;----------------------------Test-------------------------- ;=============================================================================== ; ; Function Name: _MouseClickPlus() ; Version added: 0.1 ; Description: Sends a click to window, not entirely accurate, but works ; minimized. ; Parameter(s): $Window = Title of the window to send click to ; $Button = "left" or "right" mouse button ; $X = X coordinate ; $Y = Y coordinate ; $Clicks = Number of clicks to send ; Remarks: You MUST be in "MouseCoordMode" 0 to use this without bugs. ; Author(s): Insolence <insolence_9@yahoo.com> ; ;=============================================================================== ;opt("MouseCoordMode", 0) Func _MouseClickPlus($handle, $Button = "left", $X = "", $Y = "", $Clicks = 1) Local $MK_LBUTTON = 0x0001 Local $WM_LBUTTONDOWN = 0x0201 Local $WM_LBUTTONUP = 0x0202 Local $MK_RBUTTON = 0x0002 Local $WM_RBUTTONDOWN = 0x0204 Local $WM_RBUTTONUP = 0x0205 Local $WM_MOUSEMOVE = 0x0200 Local $i = 0 Local $user32 = DllOpen("user32.dll") Select Case $Button = "left" $Button = $MK_LBUTTON $ButtonDown = $WM_LBUTTONDOWN $ButtonUp = $WM_LBUTTONUP Case $Button = "right" $Button = $MK_RBUTTON $ButtonDown = $WM_RBUTTONDOWN $ButtonUp = $WM_RBUTTONUP EndSelect If $X = "" OR $Y = "" Then $MouseCoord = MouseGetPos() $X = $MouseCoord[0] $Y = $MouseCoord[1] EndIf For $i = 1 to $Clicks DllCall($user32, "int", "SendMessage", "hwnd",$handle, "int", $WM_MOUSEMOVE, "int", 0, "long", _MakeLong($X, $Y)) DllCall($user32, "int", "SendMessage", "hwnd", $handle, "int", $ButtonDown, "int", $Button, "long", _MakeLong($X, $Y)) DllCall($user32, "int", "SendMessage", "hwnd", $handle, "int", $ButtonUp, "int", $Button, "long", _MakeLong($X, $Y)) Next EndFunc Func _MakeLong($LoWord,$HiWord) Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF)) EndFunc

Yes, I know. First you have to have font that has defined symbols for those code points. I suggest searching for Symbola or maybe Euterpe font. Both are TT fonts and both are free as far as I know. Then You have to write your own implementation for ChrW() function because AutoIt's built-in is incredibly dumb - sorry, limited to BMP plane (UCS-2) even though AutoIt internally can fully support UTF-16 in two minutes of work. Your function should be able to turn code points above 65535 into UTF16 character (or surrogate pair). After that all you have to do is make a gui to display characters or strings of them. If you would need help with any of those steps let me know, it's really not that hard.

#include <GUIConstantsEx.au3> GUICreate("Form1", 300, 241, 407, 256) Global $Input1 = GUICtrlCreateInput("", 72, 16, 209, 21) GUICtrlCreateLabel("TextBox1", 24, 16, 49, 17) Global $Button1 = GUICtrlCreateButton("Start", 88, 112, 113, 41) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Local $file = FileOpen("test.txt") If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf GUICtrlSetData($Input1, FileReadLine($file)) ; reads only the first line of the file FileClose($file) EndSwitch WEnd

Hodahel, I would read the file like this: #include <GUIConstantsEx.au3> #include <File.au3> ; Read the file into an array Global $aLines _FileReadToArray("Test.txt", $aLines) ; Create the GUI $Form1_1 = GUICreate("Form1", 300, 241, 407, 256) $Input1 = GUICtrlCreateInput("", 72, 16, 209, 21) $Label1 = GUICtrlCreateLabel("TextBox1", 24, 16, 49, 17) $Button1 = GUICtrlCreateButton("Start", 88, 112, 113, 41) GUISetState(@SW_SHOW) ; This is the line number we are going to read $iCount = 0 While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Button1 ; Increase the line number by 1 $iCount += 1 ; Check we are not past the end of the file If $iCount > $aLines[0] Then ; We were GUICtrlSetData($Input1, "End Of File") Else ; Write the next line into the input GUICtrlSetData($Input1, $aLines[$iCount]) EndIf EndSwitch WEnd All clear? M23

This would do Local $sRead ;Through FileRead $sRead = "line 0 Something Here" & @CRLF & _ "line 1 this is the start" & @CRLF & _ "line 2 Another Line..." & @CRLF & _ "line 3 Some Other Data End after terminator token " & @CRLF & _ ; or $sRead = FileRead( "FileName.ext" ) "line 4 Some Other Data after deleted line" ; or $sRead = FileRead( "FileName.ext" ) Local $sText = StringRegExpReplace($sRead, "(?i)(.*?Start)(?s:.*?End)(.*\n)", '') MsgBox(64, "Return:", $sText) ; or FileWrite( "FileName.ext", $sText )

COMAddIns is a property of the application object and can be found here for Outlook 2007.

Im back, here's what i got ;#region ;**** Directives created by AutoIt3Wrapper_GUI **** ;#AutoIt3Wrapper_Icon=.ico ;#AutoIt3Wrapper_Res_Icon_Add=.ico ;#AutoIt3Wrapper_Run_Tidy=y ;#endregion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Array.au3> #include <GuiListView.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ListViewConstants.au3> #include <RecFileListToArray.au3> Opt("GUIOnEventMode", 1) Opt("TrayAutoPause", 0) Opt("TrayIconDebug", 1) $Form1 = GUICreate("Simple Move", 600, 430, 190, 125) GUISetOnEvent($GUI_EVENT_CLOSE, "Close") $cListView = GUICtrlCreateListView("Path", 10, 115, 580, 210) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 575) $Backup = GUICtrlCreateButton("Move", 10, 380, 75, 25) GUICtrlSetOnEvent($Backup, "Move") $Source = GUICtrlCreateButton("Source", 515, 28, 75, 25) GUICtrlSetOnEvent($Source, "Source") $Dest = GUICtrlCreateButton("Dest", 515, 337, 75, 25) GUICtrlSetOnEvent($Dest, "Dest") $Label1 = GUICtrlCreateLabel("Source Folder", 10, 10, 130, 17) $Label2 = GUICtrlCreateLabel("Extensions to search for: (separated by ; )", 10, 60, 200, 17) $Label3 = GUICtrlCreateLabel("Destination Folder", 10, 220, 200, 17) $Input1 = GUICtrlCreateInput(@ScriptDir, 10, 30, 500, 21) $Input2 = GUICtrlCreateInput(@ScriptDir, 10, 340, 500, 21) $Input3 = GUICtrlCreateInput("*.mov;*.mdf", 10, 80, 200, 21) $SourceDir = GUICtrlRead($Input1) $DestDir = GUICtrlRead($Input2) $Ext = GUICtrlRead($Input3) GUISetState(@SW_SHOW) Func Source() _GUICtrlListView_DeleteAllItems($cListView) $SourceDir = FileSelectFolder("Choose Source Dir", '', 2, @DesktopDir) GUICtrlSetData($Input1, $SourceDir) $aList = _RecFileListToArray ($SourceDir, $Ext, 1, 0, 0, 2) If IsArray($aList) Then For $u = 1 To $aList[0] GUICtrlCreateListViewItem($aList[$u], $cListView) Next EndIf EndFunc Func Dest() $DestDir = FileSelectFolder("Choose Source Dir", '', 2, @DesktopDir) GUICtrlSetData($Input2, $DestDir) EndFunc Func Move() $SourceDir = GUICtrlRead($Input1) $DestDir = GUICtrlRead($Input2) $ItemCount = _GUICtrlListView_GetItemCount($cListView) For $u = 0 To $ItemCount $ItemText = _GUICtrlListView_GetItemText($cListView, $u, 0) FileMove($ItemText, $DestDir, 9) Next EndFunc ;==>Backup Func Close() Exit EndFunc ;==>Close Do Sleep(100) $Ext = GUICtrlRead($Input3) Until $Form1 = 0 Need's attached Melba's "RecFileListToArray.au3" I think it is pretty simple to use, try out and tell what you think. EDIT: For some reason the includes went blank! :S RecFileListToArray.au3

I have made some changes to the code, nothing big. Fixed a bug with form filling function regarding application/x-www-form-urlencoded enc. type, switched to some new DllCall() types and gave the help file new fresh look. Anyone interested can find download link in the first post of this thread. Minimum AutoIt version is 3.3.7.20.