Quantcast
Channel: AutoIt v3 - General Help and Support
Viewing all 12506 articles
Browse latest View live
↧

IniRead works in editor, not after running compiled on target PC?

March 13, 2014, 12:08 pm
$
0
0

I've got an odd one here. I've updated some old code that ran file previously. The update primarily just added the window title identification string to the INI file instead of being hardcoded in the script. I'm compiling the code on Windows 8.1 x64 and running it on Windows 8.1 x32 (previously ran fine on WinXP x32). There are restrictions on this PC. Through group policy, the C drive is hidden/inaccessible. This program is being run via the registry upon boot and is found in C:\sspl_stuff\kiosk\. The INI file is located in the same directory as the executable.

AutoIt          
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    2. 

  2. #AutoIt3Wrapper_Outfile=C:\Users\bkozlowski.SARWIN2K\Desktop\splash_on_timer.exe
    3. 

  3. #AutoIt3Wrapper_UseX64=n
    4. 

  4. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    5. 

  5.  
    6. 

  6. #include <WindowsConstants.au3>
    7. 

  7. #include <StaticConstants.au3>
    8. 

  8. #include <ButtonConstants.au3>
    9. 

  9. #include <GUIConstantsEx.au3>
    10. 

  10. #include <BlockInputEx.au3>         ; Attempts to block ALT+TAB from working (works in XP, sort of mimics it in >= Vista
    11. 

  11. #include <GDIPlus.au3>              ; Fixes issue with odd transparent pixels w/normal AutoIt image/background methods
    12. 

  12.  
    13. 

  13. Opt('TrayIconDebug', 0);    Set to 1 to view current line in tray icon via tooltip
    14. 

  14. Opt('TrayIconHide', 1);     Set to 1 to hide the tray icon
    15. 

  15. Opt("GUIOnEventMode", 1);   Can call an event on action (like button click)
    16. 

  16.  
    17. 

  17.  
    18. 

  18. ; --- FORCED DISPLAY SIGNAGE CODE --- ;
    19. 

  19. $minutes_until_display = IniRead("settings.ini", "TimerScreenSettings", "minutes_until_display", 10);
    20. 

  20. $seconds_to_display    = IniRead("settings.ini", "TimerScreenSettings", "time_delay_secs", 20);
    21. 

  21. $background_color      = IniRead("settings.ini", "TimerScreenSettings", "background_color", "000000");
    22. 

  22. $splash_image          = IniRead("settings.ini", "TimerScreenSettings", "splash_image", "splash.jpg")
    23. 

  23. $text_color            = IniRead("settings.ini", "TimerScreenSettings", "text_color", "CCCCCC");
    24. 

  24. $font_size             = IniRead("settings.ini", "TimerScreenSettings", "font_size", 24);
    25. 

  25. $font_weight           = IniRead("settings.ini", "TimerScreenSettings", "font_weight", 600);
    26. 

  26. $close_msg             = IniRead("settings.ini", "TimerScreenSettings", "close_msg", "I Understand");
    27. 

  27. $font_family           = IniRead("settings.ini", "TimerScreenSettings", "font_family", "Verdana");
    28. 

  28. $message_text          = IniRead("settings.ini", "TimerScreenSettings", "message_text", "You have a little over 10 minutes remaining." & @CRLF & "Please save your work.");
    29. 

  29. $button_width          = IniRead("settings.ini", "TimerScreenSettings", "button_width", 100);
    30. 

  30. $button_height         = IniRead("settings.ini", "TimerScreenSettings", "button_height", 30);
    31. 

  31. $button_left           = IniRead("settings.ini", "TimerScreenSettings", "button_left", 1024 - $button_width);
    32. 

  32. $button_top            = IniRead("settings.ini", "TimerScreenSettings", "button_top", 768 - $button_height);
    33. 

  33. $window_width          = IniRead("settings.ini", "TimerScreenSettings", "window_width", @DesktopWidth);
    34. 

  34. $window_height         = IniRead("settings.ini", "TimerScreenSettings", "window_height", @DesktopHeight);
    35. 

  35. $image_width           = IniRead("settings.ini", "TimerScreenSettings", "image_width", @DesktopHeight);
    36. 

  36. $image_height          = IniRead("settings.ini", "TimerScreenSettings", "image_height", @DesktopHeight);
    37. 

  37. $window_class          = IniRead("settings.ini", "TimerScreenSettings", "window_class", "[REGEXPTITLE:(.* minutes)]");
    38. 

  38. $left = (@DesktopWidth - $image_width) / 2;         Image centering placement
    39. 

  39. $top  = (@DesktopHeight - $image_height) / 2;       Image centering placement
    40. 

  40. ;$left = (1024 - $image_width) / 2;     Image centering placement
    41. 

  41. ;$top  = (768 - $image_height) / 2;     Image centering placement
    42. 

  42.  
    43. 

  43.  
    44. 

  44. ; Create newlines from the settings.ini file information
    45. 

  45. $message_text = StringReplace($message_text,'\n',@CRLF);
    46. 

  46.  
    47. 

  47.  
    48. 

  48. ; --- TIME/WINDOW DETECTION CODE --- ;
    49. 

  49. $window = WinWait($window_class, "", 1);            Pauses script execution until the Cassie timer/application toolbar window is created and active
    50. 

  50. While 1
    51. 

  51.     $time_remaining = WinGetTitle($window_class);   Cassie displays time remaining in title of window
    52. 

  52.     $time_remaining = StringReplace($time_remaining, " minutes", "");   Replace "X minutes" with "X"
    53. 

  53.     Sleep(5000)
    54. 

  54.     If $time_remaining = $minutes_until_display Then
    55. 

  55.         ExitLoop
    56. 

  56.     EndIf
    57. 

  57. WEnd
    58. 

  58.  
    59. 

  59.  
    60. 

  60. ; --- Set the Form Controls --- ;
    61. 

  61. ; Window
    62. 

  62. $kiosk = GUICreate("", $window_width, $window_height, 0, 0, $WS_POPUP);
    63. 

  63. WinSetOnTop($kiosk, "", 1);                     Set the window to show up above all other windows
    64. 

  64. GuiSetBkColor("0x" & $background_color);
    65. 

  65. ; Background image
    66. 

  66. _GDIPlus_Startup()
    67. 

  67. $hBitmap  = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\" & $splash_image);    load bitmap as GDI+ bitmap
    68. 

  68. $hHBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap);                   convert it to a GDI bitmap
    69. 

  69. _GDIPlus_BitmapDispose($hBitmap);
    70. 

  70. $iPic = GUICtrlCreatePic("", $left, $top, 640, 480);
    71. 

  71. $hB   = GUICtrlSendMsg($iPic, 0x0172, 0, $hHBITMAP);                            copy GDI bitmap to picture control
    72. 

  72. If $hB Then _WinAPI_DeleteObject($hB);
    73. 

  73. GuiCtrlSetState(-1,$GUI_DISABLE);
    74. 

  74. ; Close button
    75. 

  75. $close = GUICtrlCreateButton($close_msg, $button_left, $button_top, $button_width, $button_height);
    76. 

  76. GUICtrlSetDefColor("0x" & $text_color);
    77. 

  77. GUISetFont($font_size, $font_weight, '', $font_family);
    78. 

  78. GUICtrlSetFont($close, $font_size, $font_weight, 0, $font_family);
    79. 

  79. GUICtrlSetOnEvent($close,"Remove");             Close the window early
    80. 

  80. ; Dummy button for use with blocking key commands
    81. 

  81. $dummyCtrl1 = GUICtrlCreateDummy();
    82. 

  82. $dummyCtrl2 = GUICtrlCreateDummy();
    83. 

  83. ; Label text
    84. 

  84. GUICtrlCreateLabel($message_text, 15, 15);      Place the text in the GUI
    85. 

  85. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT);
    86. 

  86.  
    87. 

  87.  
    88. 

  88. ;--- Block certain keys/combos for XP machines ---;
    89. 

  89. ; Enter, Space, SHIFT+TAB, WIN+TAB, ALT+SHIFT+TAB, WIN+SHIFT+TAB
    90. 

  90. Local  $AccelKeys[3][2] = [["{ENTER}", $dummyCtrl1], ["{SPACE}", $dummyCtrl1], ["!{TAB}|#{TAB}|!+{TAB}|#+{TAB}", $dummyCtrl2]];
    91. 

  91. GUISetAccelerators($AccelKeys);
    92. 

  92.  
    93. 

  93.  
    94. 

  94. ; --- Display the Coded Form --- ;
    95. 

  95. GUISetState(@SW_SHOW);
    96. 

  96. WinActivate($kiosk);
    97. 

  97.  
    98. 

  98.  
    99. 

  99. ; Watch for key accelerators and perform an action while window open, or close window after set time expires
    100. 

  100. $timer = TimerInit();
    101. 

  101. Do
    102. 

  102.     $msg = GUIGetMsg();
    103. 

  103.     Select
    104. 

  104.         Case $msg = $dummyCtrl1
    105. 

  105.             ; DO NOTHING
    106. 

  106.         Case $msg = $dummyCtrl2
    107. 

  107.             ; DO NOTHING
    108. 

  108.         Case $msg = $close
    109. 

  109.             Remove();
    110. 

  110.     EndSelect
    111. 

  111. Until $msg = $close or TimerDiff($timer) > $seconds_to_display * 1000
    112. 

  112.  
    113. 

  113.  
    114. 

  114. ; --- CLOSE THE KIOSK GUI EARLY --- ;
    115. 

  115. Func Remove ()
    116. 

  116.     GUIDelete();
    117. 

  117.     Exit;
    118. 

  118. EndFunc
    119. 

  119. Func blocked ()
    120. 

  120. EndFunc
    121.

Lines 49-57 can be commented out to see the program run and what it's doing (it waits for a window title to update to an appropriate value, then runs - it's for a public library computer reservation system).

 

Settings file:

Plain Text          
  1. [SplashScreenSettings]
    2. 

  2. time_delay_secs=5
    3. 

  3. background_color=000000
    4. 

  4. splash_image=splash.jpg
    5. 

  5.  
    6. 

  6. [TimerScreenSettings]
    7. 

  7. minutes_until_display=10
    8. 

  8. time_delay_secs=37
    9. 

  9. background_color="000000"
    10. 

  10. splash_image="alert_1024x768.jpg"
    11. 

  11. text_color="AAD4FF"
    12. 

  12. font_size=20
    13. 

  13. font_weight=600
    14. 

  14. close_msg="I Understand"
    15. 

  15. font_family="Cambria Bold"
    16. 

  16. message_text="\nYou have under 10 minutes remaining.\nContents saved *ON THE COMPUTER* will be *ERASED* at the end of your session.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n                                                       To prevent loss of work, please save externally now.\n                                                                    Please see the clerk for any assistance."
    17. 

  17. button_width=300
    18. 

  18. button_height=60
    19. 

  19. button_left=493 ;1024 -> 1280 = 256 / 2 = 128 + 365 = 493 | old 365
    20. 

  20. button_top=836  ;768  -> 1024 = 256 / 2 = 128 + 708 = 836 | old 768
    21. 

  21. image_width=1024
    22. 

  22. image_height=768
    23. 

  23. window_class="[REGEXPTITLE:(.* minutes)]"
    24. 

  24. ;window_width=1024
    25. 

  25. ;window_height=768
    26.

Unfortunately my customized settings are not being read, only the alternate default settings (hardcoded in the application) are being used. The application and settings.ini file are both in the same folder. A different application is using the settings file as expected (compiled from an older build of AutoIt, I'm currently running v3.3.10.2 - which doesn't seem to use the AutoIt icon for compiled executables?)

 

Any ideas on why the INI might not be getting read on the target PC? It runs as expected when in the editor on my local dev PC.

 

EDIT: Just in case you're being curious and are examining every single line, note that the variable $window_class is a misnomer. I simply didn't update the variable name when I switched from class to REGEXTITLE (the class kept dynamically changing on each run).

↧
Search

IDM AutoIt problem

March 13, 2014, 3:01 pm
$
0
0

im trying to make IDM silent install with autoit , the problem is :

IDM when starts sometimes start with a chose language screen which is something like this :

Case 1 :

01.jpg

 

and other times it starts with the normal setup screen which is :

Case 2 :

02.png

 

my problem is :

How to make autoit when the first screen appear Case 1 so the script go on with chose language process and if IDM just start with Case 2 the script then escape Case 1 and work with Case 2 .

 

I hope that im clear .

autoit script here Attached File  installxp.au3   3.14KB   2 downloads

AutoIt          
#region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=00000409)  ---

#region --- Internal functions Au3Recorder Start ---
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
  MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf

EndFunc

Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---


Run('idman.exe')
WinWait("IDM Setup","الرجاء تحديد اللغة ل")
If Not WinActive("IDM Setup","الرجاء تحديد اللغة ل") Then WinActivate("Internet Download Manager Installation Wizard","")
_WinWaitActivate("IDM Setup","الرجاء تحديد اللغة ل")
Send("{TAB}{DOWN}{DOWN}{DOWN}{DOWN}{TAB}{ENTER}")
_WinWaitActivate("Internet Download Manager Installation Wizard","")
Send("{ENTER}")
_WinWaitActivate("Please read IDM license","")
Send("{ENTER}")
_WinWaitActivate("Choose Destination Location","")
Send("{ENTER}")
_WinWaitActivate("Start Installation of Internet Download Manager","")
Send("{ENTER}")
_WinWaitActivate("Installation Complete","")
Send("{ENTER}")
Sleep(3000)
ProcessClose("IDMan.exe")
ProcessClose("IEMonitor.exe")
ProcessClose("IEXPLORE.exe")
#endregion --- Au3Recorder generated code End ---

thank you

↧
↧

StringSplit - strange behavior ? or bug ?

March 13, 2014, 3:34 pm
$
0
0

Repro script:

AutoIt          
#include <MsgBoxConstants.au3>
#include <array.au3>
Local $sData1 = "NR KONTA: 47 1020" & @CRLF & _
        "NR KONTA: 62 2030" & @CRLF & _
        "NR KONTA: 64 1910" & @CRLF & _
        "NR KONTA: 30 2030" & @CRLF & _
        "NR KONTA: 03 1020" & @CRLF & _
        "NR KONTA: 77 1020" & @CRLF & _
        "NR KONTA: 35 1090" & @CRLF & _
        "NR KONTA: 28 1240" & @CRLF & _
        "NR KONTA: 07 1020" & @CRLF & _
        "NR KONTA: 29 1240" & @CRLF & _
        ""
Local $sData2 = StringReplace($sData1, "NR KONTA: 62 2030", "Nr KONTA: 62 2030")

Local $aTest1 = StringSplit($sData1, 'NR KONTA:', 1)
_ArrayDisplay($aTest1, '$aTest1')

Local $aTest2 = StringSplit($sData2, 'NR KONTA:', 1)
_ArrayDisplay($aTest2, '$aTest2')

If $aTest1[$aTest1[0]] <> $aTest2[$aTest2[0]] Then
    MsgBox($MB_SYSTEMMODAL, "Question", " Why ? " & @CRLF & " $aTest1[$aTest1[0]] <> $aTest2[$aTest2[0]] " & @CRLF & $aTest1[$aTest1[0]] & " <> " & $aTest2[$aTest2[0]], 10)
EndIf

If $aTest1[2] == $aTest2[2] and $aTest1[3] == $aTest2[3] Then
    MsgBox($MB_SYSTEMMODAL, "Question", "Why second and third element in $aTest1 and $aTest2 are still the same ?", 10)
EndIf

.

Question are in MsgBox.

 

 

Regards

mLipok

↧

IEPropertyGet / IEBodyReadText from a txt file opened in IE

March 13, 2014, 4:29 pm
$
0
0

Guys,

 

      I have quick question. I'm getting the source of a URL with inetgetsource and saving it to a txt file. I'm opening the txt file with IE and trying to read the inner text with IEPropertyGet or IEBodyReadText and both are returning the full source of the page. Is it possible to only get the inner text from the saved source  txt file opened in IE??

 

I would simply use iecreate > iedocreadhtml and go that way but it doesn't get the correct source that I need. Inetgetsource gets it perfectly. When I use iecreate, it gets the source from a different webpage. JS is preventing iecreate to go directly to the webpage I need whereas inetgetsource goes, gets and returns exactly what I need.

 

 

 

↧

Looking to hire a bot developer i'am on a budget!

March 13, 2014, 5:00 pm
$
0
0

Targeted mmo Aion Online Retail NA Servers

 

paying a developer to create a bot that includes the following features and will do the following

 

super easy to use interface that can include my logo and also user friendly

 

away to log in and log out from a user account registered from my website kinda like a auth server

 

waypoint path recorder and way to, load a path / and away to unload paths stored in a database on a website 

 

away to import into database and away to export old paths out of the database

 

the bot needs to show the characters health level and mp level inside the bot in the gui

 

the bot will need to only do to things while ruining it's course! 

 

1st kill mobs according to the characters level range

2nd the ability to gather and level the characters skill level and gathering skill 

and also the ability to loot every thing

 

and have away to set a path to an npc to sale uncommon junk/items and away to heal the characters soul after death away for the bot to know when the character has died to go back to or near its path mark and continue where it left off at

 

and i would like for it to automatically detect the spill book its a requirement i need done

 

 

if anyone is interested in my little project here hit me up on skype: name zero.pass its the guy giving a big finger if someone has a hard time finding it

 

P.S please be awhere that i'am a fixed budget and the price that i can pay can not go up thanks for understanding

 

willing to pay throw paypal 125.00 us dollars this is a quick job for who ever can complete following requirements for me and the jobs will continually be offered to the person who does the job meaning any problems due to being out date or offsets changing

 

thinks for understanding 

↧
↧

If $var check

March 13, 2014, 5:25 pm
$
0
0

Hello,

 

What does this simple code actually checks.

 

If $var Then

    ....

 

$var is set to False in a global scope and it changes depending on some other stuff to True or False.

So does the "If $var Then" checks if the variable is True?

↧

Prevent new window from taking focus

March 13, 2014, 7:53 pm
$
0
0

TL;DR: I'm looking for a way to prevent specific newly created (not created via autoit) windows from stealing focus (or from showing at all if possible) for the split second it takes for the script to automate them.

 

About once a week I have to print a bunch of pages, 1 at a time, to a PDF printer. I already have the process scripted and it takes about 30 minutes so normally I just turn it on and go to lunch. I'm trying to modify the script so the whole process runs in the background and I can keep using my computer without interruption. The script already uses all Control...() functions so none of the windows need to have focus to work. But, every minute or so, a couple windows pop up (print dialog, pdf program, save as dialog, etc) stealing the focus for a split second which can interrupt my typing/mouse clicking in other windows. That's what I'm trying to fix.

 

I figure I need to hook the window creation event somehow as I need to interrupt the process before the window gets displayed. I've tried the hooking example from http://www.autoitscript.com/forum/topic/56536-easy-shell-hooking-example/ and using WinSetState(..., @SW_HIDE) but the window still appears and steals focus for a brief moment.

 

Basically, the code looks like this:

 

while true

press print

wait for print dialog

press ok

wait for pdf dialog

press save

wait for save as dialog

fill in file name

press ok

go to next page

wend

 

I'd like to do something like:

 

register that the print dialog is about to open

press print

event handler fires from registered print dialog opening and doesn't allow it to take focus

unregister print dialog

press ok

etc...

 

Any help would be appreciated.

↧

Why are my buttons blinking?

March 13, 2014, 8:10 pm
$
0
0

I was messing around and thought I try out some stuff with colors and managed to make a thing where the background in the gui is kind of glowing.

My problem though is if it goes too fast the buttons start to blink, is this the result of the script trying to run really fast or is there an error some where else?

Code:

AutoIt          
$gui = GUICreate("",200,200)
$hex = 0x000000
$go = GUICtrlCreateButton("Go Button",100,0,70,30)
$go2 = GUICtrlCreateButton("Go GUI",0,0,70,30)
$label = GUICtrlCreateLabel("",0,50,500,500)
$button1 = GUICtrlCreateButton("Button",0,150,100,30)
GUICtrlSetFont($label,15,700)
GUICtrlSetFont($button1,15,700)
GUICtrlSetColor($button1,0xAAAAAA)
GUISetState()
while 1
   $msg = GUIGetMsg(1)
   Switch $msg[1]
   Case $gui
      Switch $msg[0]
      Case -3
         Exit
      Case $go
         first()
      Case $go2
         first2()
      EndSwitch
   EndSwitch
WEnd

Func first()
while 1
            If GUICtrlRead($label) < 200 Then
         $hex = $hex + Dec(0x000005)
         GUICtrlSetData($label,$hex)
         GUICtrlSetBkColor($button1,$hex)
         Sleep(200)
         Switch GUIGetMsg()
      Case -3
         Exit
         EndSwitch
      Else
         second()
         ExitLoop
      EndIf
      WEnd
      EndFunc

Func second()
   while 1
            $hex = $hex - Dec(0x000005)
            GUICtrlSetData($label,$hex)
         GUICtrlSetBkColor($button1,$hex)
         Sleep(200)
         If GUICtrlRead($label) = 0 Then
            first()
            ExitLoop
         EndIf
         Switch GUIGetMsg()
      Case -3
         Exit
         EndSwitch
      WEnd
   EndFunc

   Func first2()
while 1
            If GUICtrlRead($label) < 200 Then
         $hex = $hex + Dec(0x000001)
         GUICtrlSetData($label,$hex)
         GUISetBkColor($hex)
         ;Sleep(200)
         Switch GUIGetMsg()
      Case -3
         Exit
         EndSwitch
      Else
         second2()
         ExitLoop
      EndIf
      WEnd
      EndFunc

Func second2()
   while 1
            $hex = $hex - Dec(0x000001)
            GUICtrlSetData($label,$hex)
         GUISetBkColor($hex)
         ;Sleep(200)
         If GUICtrlRead($label) = 0 Then
            first2()
            ExitLoop
         EndIf
         Switch GUIGetMsg()
      Case -3
         Exit
         EndSwitch
      WEnd
      EndFunc

Thanks :)

↧
Search

LoadTesting WebServer

March 13, 2014, 10:57 pm
$
0
0

Hi,

 

Presently I am working on a script to load test a webservice created using Node.JS . However, I am unable to speed up the processing. The following code is a work-around , but I would like to increase its over-all performance. 

 

Hints , appreciated.

 

Since,

1: InetGet provides a non-blocking method / ASYNC , it is being used .

2: Writing the results to the file using Little-Endian - as it is the fastest and requires least amount of code conversion.

AutoIt          
#include <Array.au3>

Global Const $HTTPREQUEST_PROXYSETTING_DIRECT = 1
Global Const $HTTP_STATUS_OK = 200
Global $URL
Global $count, $SecondCount
Global $MaintainCount[100]
Global $sFileData, $hFile

FileDelete('consolidated.txt')
$hFile = FileOpen('consolidated.txt', 34)
For $i = 0 To 99 Step 1
    $MaintainCount[$i] = 0
Next
AdlibRegister('WriteToFile', 2000)
;~ AdlibRegister('Chk_Array', 150)
$URL = 'http://192.168.1.14/getdata/default.aspx?adrm=TINGTONG&adrh=SomeDynamicValue' 
;SomeDynamicValue is read from a txt file and that logic is not included. Presently using a static value.
$count = 0
$SecondCount = 0
$begin = TimerInit()
While 1
    If $MaintainCount[$count] <> 0 Then
        If InetGetInfo($MaintainCount[$count], 2) Then
;~          AdlibUnRegister('Chk_Array')
            InetClose($MaintainCount[$count])
            $fileContents = FileRead(@ScriptDir & '\1\' & $count & '.txt')
;           FileDelete(@ScriptDir & '\1\' & $count & '.txt')
            $sFileData &= @HOUR & @MIN & @SEC & '|' & $fileContents & @CR
            $MaintainCount[$count] = 0
            Call('geturl', $count)
            ConsoleWrite('IF    : ' & $count & ' : ' & $SecondCount & @CRLF)
;~          AdlibRegister('Chk_Array', 150)
        EndIf
    Else
        Call('geturl', $count)
        ConsoleWrite('Else  : ' & $count & ' : ' & $SecondCount & @CRLF)
    EndIf
    $count += 1
    If $count = 100 Then
        $count = 0
        Chk_Array()
    EndIf
    If $SecondCount == 1000 Then ExitLoop
;~  Sleep(10)
WEnd
AdlibUnRegister('WriteToFile')

ConsoleWrite('Completed: ' & TimerDiff($begin) / 1000 & @CRLF)
Local $FinalCounter = 0
While 1
    For $i = 0 To 99 Step 1
        If $MaintainCount[$i] <> 0 Then
            If InetGetInfo($MaintainCount[$i], 2) Then
                InetClose($MaintainCount[$i])
                $fileContents = FileRead(@ScriptDir & '\1\' & $i & '.txt')
;               FileDelete(@ScriptDir & '\1\' & $i & '.txt')
                $sFileData &= @HOUR & @MIN & @SEC & '|' & $fileContents & @CR
                $MaintainCount[$i] = 0
                ConsoleWrite('Final : ' & $i & ' : ' & $FinalCounter & @CRLF)
                $FinalCounter += 1
            EndIf
        EndIf
    Next
    If $FinalCounter == 99 Then
        FileWrite($hFile, $sFileData)
        ExitLoop
    EndIf
WEnd
ConsoleWrite('Finally Completed: ' & TimerDiff($begin) / 1000 & @CRLF)
Func Chk_Array()
;~  AdlibUnRegister('Chk_Array')
    For $i = 0 To 99 Step 1
        If $MaintainCount[$i] <> 0 Then
            If InetGetInfo($MaintainCount[$i], 2) Then
                InetClose($MaintainCount[$i])
                $fileContents = FileRead(@ScriptDir & '\1\' & $i & '.txt')
                $sFileData &= @HOUR & @MIN & @SEC & '|' & $fileContents & @CR
                $MaintainCount[$i] = 0
                ConsoleWrite('Adlib : ' & $i & ' : ' & $SecondCount & @CRLF)
            EndIf
        EndIf
    Next
;~  AdlibRegister('Chk_Array', 150)
EndFunc   ;==>Chk_Array

Func WriteToFile()
    If StringInStr($sFileData, @CR, 2, 100) <> 0 Then
        FileWrite($hFile, $sFileData)
        $sFileData = ''
    EndIf
EndFunc   ;==>WriteToFile

Func geturl($counter)
    $sdata = InetGet($URL, @ScriptDir & '\1\' & $counter & '.txt', 8, 1)
    $MaintainCount[$counter] = $sdata
    $SecondCount += 1
EndFunc   ;==>geturl

Is there any alternative for InetGet ? So that instead of writing it into the file, it will store the results into the buffer , that way , Disk I/O wont play a spoilsport ?

 

A bit of the Past : The initial script completed 4 requests per second, now its around 8 requests per second.

 

Regards

↧
↧

ListView Click

March 13, 2014, 11:45 pm
$
0
0

Let me start by saying this is not necessary to my project.

This is more about me learning and understanding.

 

What I want to do is be able to click on any Item in the ListView and return a message.

This is an example I found and started tweaking to get it to do what I wanted.

I deleted some buttons and sent the click directly to a msgbox.

 

Double click an item returns a message.

AutoIt          
  1. #include <GUIConstantsEx.au3>
    2. 

  2. #include <WindowsConstants.au3>
    3. 

  3. #Include <GuiListView.au3>
    4. 

  4.  
    5. 

  5.  
    6. 

  6. $Form1 = GUICreate('boo', 361, 270, 200, 200)
    7. 

  7.  
    8. 

  8. ;~ Create listview
    9. 

  9.     $hListView = _GUICtrlListView_Create ($Form1, "", 0, 0, 260, 377) ; LEFT],[TOP],WIDTH],[HEIGHT]
    10. 

  10.                  _GUICtrlListView_SetExtendedListViewStyle ($hListView, BitOR($LVS_AUTOARRANGE,$LVS_EX_FULLROWSELECT,$LVS_EX_DOUBLEBUFFER,$LVS_EX_SUBITEMIMAGES))
    11. 

  11.  
    12. 

  12.   ; Add columns
    13. 

  13.     _GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
    14. 

  14.     _GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 150)
    15. 

  15.  
    16. 

  16.     ; Add items
    17. 

  17.     _GUICtrlListView_AddItem($hListView, "Row 1: Col 1", 0)
    18. 

  18.     _GUICtrlListView_AddSubItem($hListView, 0, "Row 1: Col 2", 1)
    19. 

  19.  
    20. 

  20.     _GUICtrlListView_AddItem($hListView, "Row 2: Col 1", 1)
    21. 

  21.     _GUICtrlListView_AddSubItem($hListView, 1, "Row 2: Col 2", 1)
    22. 

  22.  
    23. 

  23. GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    24. 

  24. GUISetState(@SW_SHOW)
    25. 

  25.  
    26. 

  26.  
    27. 

  27. Do
    28. 

  28. $msg = GUIGetMsg()
    29. 

  29. Until $msg = $GUI_EVENT_CLOSE
    30. 

  30.  
    31. 

  31.  
    32. 

  32.  
    33. 

  33. ;~ ========================================================
    34. 

  34. ;~ This thing is responcible for click events
    35. 

  35. ;~ ========================================================
    36. 

  36. Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    37. 

  37.  
    38. 

  38.     Local $hWndFrom, $iCode, $tNMHDR, $hWndListView
    39. 

  39.     $hWndListView = $hListView
    40. 

  40.     If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)
    41. 

  41.  
    42. 

  42.     $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    43. 

  43.     $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    44. 

  44.     $iCode = DllStructGetData($tNMHDR, "Code")
    45. 

  45.     Switch $hWndFrom
    46. 

  46.         Case $hWndListView
    47. 

  47.             Switch $iCode
    48. 

  48.  
    49. 

  49.                 Case $NM_DBLCLK  ; Sent by a list-view control when the user double-clicks an item with the left mouse button
    50. 

  50.                    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    51. 

  51.  
    52. 

  52.                    $Index = DllStructGetData($tInfo, "Index")
    53. 

  53.  
    54. 

  54.                    $subitemNR = DllStructGetData($tInfo, "SubItem")
    55. 

  55.  
    56. 

  56.  
    57. 

  57.                    ; make sure user clicks on the listview & only the activate
    58. 

  58.                    If $Index <> -1 Then
    59. 

  59.  
    60. 

  60.                        ; col1 ITem index
    61. 

  61.                         $item = StringSplit(_GUICtrlListView_GetItemTextString($hListView, $Index),'|')
    62. 

  62.                         $item = $item[1]
    63. 

  63.  
    64. 

  64.                         ;Col item 2 index
    65. 

  65.                         $item2 = StringSplit(_GUICtrlListView_GetItemTextString($hListView, $subitemNR),'|')
    66. 

  66.                         $item2= $item2[2]
    67. 

  67.  
    68. 

  68.                         MsgBox(0, 'List View', "Please Select Drive from Drop Down List below")
    69. 

  69.  
    70. 

  70.                     EndIf
    71. 

  71.  
    72. 

  72.             EndSwitch
    73. 

  73.     EndSwitch
    74. 

  74.     Return $GUI_RUNDEFMSG
    75. 

  75. EndFunc   ;==>WM_NOTIFY
    76.

What my problem is the Items are not set in the ListView in my script below.

This is my feeble attempt at applying the above to my script.

 

Import all Drivers

AutoIt          
  1. #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    2. 

  2. #AutoIt3Wrapper_Icon=Best Driver Import.ico
    3. 

  3. #AutoIt3Wrapper_Res_Fileversion=1.5.0.0
    4. 

  4. #AutoIt3Wrapper_Run_Tidy=y
    5. 

  5. #AutoIt3Wrapper_Tidy_Stop_OnError=n
    6. 

  6. #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    7. 

  7. #include <ButtonConstants.au3>
    8. 

  8. #include <ComboConstants.au3>
    9. 

  9. #include <GUIConstantsEx.au3>
    10. 

  10. #include <StaticConstants.au3>
    11. 

  11. #include <WindowsConstants.au3>
    12. 

  12. #include <ProgressConstants.au3>
    13. 

  13. #include <SendMessage.au3>
    14. 

  14. #include <GuiListView.au3>
    15. 

  15.  
    16. 

  16. $Form1 = GUICreate("Import all Drivers", 400, 400, 600, -1, BitOR($WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU), BitOR($WS_EX_OVERLAPPEDWINDOW, $WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
    17. 

  17. GUISetBkColor(0xABCDFF)
    18. 

  18. $ListView = GUICtrlCreateListView("FileSystem        | Drive | ", 50, 40, 300, 190)
    19. 

  19. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    20. 

  20. $aDrives = DriveGetDrive("Fixed")
    21. 

  21. For $i = 1 To UBound($aDrives) - 1
    22. 

  22.     $sData = DriveGetFileSystem($aDrives[$i]) & " | " & StringUpper($aDrives[$i]) & "" & DriveGetLabel($aDrives[$i])
    23. 

  23.     GUICtrlCreateListViewItem($sData, $ListView)
    24. 

  24. Next
    25. 

  25. $Label1 = GUICtrlCreateLabel("List of Available Drives to Import From", 60, 20, 275, 24)
    26. 

  26. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    27. 

  27. $Label2 = GUICtrlCreateLabel("Select Drive from dropdown list below", 65, 230, 275, 24)
    28. 

  28. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    29. 

  29. $Combo1 = GUICtrlCreateCombo("", 100, 260, 200, 20, $CBS_DROPDOWNLIST)
    30. 

  30. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    31. 

  31. $Button1 = GUICtrlCreateButton("OK", 100, 350, 75, 25)
    32. 

  32. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    33. 

  33. $Button2 = GUICtrlCreateButton("Cancel", 220, 350, 75, 25)
    34. 

  34. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    35. 

  35. GUISetState(@SW_SHOW)
    36. 

  36. For $i = 10 To 99
    37. 

  37.     If DriveStatus(Chr($i) & ':') = 'READY' Then
    38. 

  38.         If DriveGetType(Chr($i) & ":") = 'FIXED' Then GUICtrlSetData($Combo1, Chr($i) & ':')
    39. 

  39.     EndIf
    40. 

  40. Next
    41. 

  41. While 1
    42. 

  42.     Switch GUIGetMsg()
    43. 

  43.         Case $GUI_EVENT_CLOSE, $Button2
    44. 

  44.             Exit
    45. 

  45.         Case $Button1
    46. 

  46.             $version = StringLeft(FileGetVersion(GUICtrlRead($Combo1) & "\Windows\system32\WinVer.exe"), 3)
    47. 

  47.             If StringLeft($version, 3) = "6.1" Then
    48. 

  48.                 $version = "WIN7"
    49. 

  49.             ElseIf StringLeft($version, 3) = "6.0" Then
    50. 

  50.                 $version = "VISTA"
    51. 

  51.             ElseIf StringLeft($version, 3) = "5.1" Then
    52. 

  52.                 $version = "XP"
    53. 

  53.             ElseIf Not FileExists($version) Then
    54. 

  54.                 MsgBox(262144, "No OS found", "No Windows OS found")
    55. 

  55.                 ContinueLoop
    56. 

  56.             EndIf
    57. 

  57.             $arch = (GUICtrlRead($Combo1) & "\Windows\system32\WinVer.exe")
    58. 

  58.             Local $stType = DllStructCreate("dword;")
    59. 

  59.             $aRet = DllCall("kernel32.dll", "hwnd", "GetBinaryType", "str", $arch, "ptr", DllStructGetPtr($stType))
    60. 

  60.  
    61. 

  61.             ; Local Const $SCS_32BIT_BINARY = 0 ; A 32-bit Windows-based application
    62. 

  62.             ; Local Const $SCS_DOS_BINARY = 1 ; An MS-DOS – based application
    63. 

  63.             ; Local Const $SCS_WOW_BINARY = 2 ; A 16-bit Windows-based application
    64. 

  64.             ; Local Const $SCS_PIF_BINARY = 3 ; A PIF file that executes an MS-DOS – based application
    65. 

  65.             ; Local Const $SCS_POSIX_BINARY = 4 ; A POSIX – based application
    66. 

  66.             ; Local Const $SCS_OS216_BINARY = 5 ; A 16-bit OS/2-based application
    67. 

  67.             ; Local Const $SCS_64BIT_BINARY = 6 ; A 64-bit Windows-based application
    68. 

  68.  
    69. 

  69.             If DllStructGetData($stType, 1) = "0" Then
    70. 

  70.                 $arch = "_x32"
    71. 

  71.             ElseIf DllStructGetData($stType, 1) = "6" Then
    72. 

  72.                 $arch = "_x64"
    73. 

  73.             EndIf
    74. 

  74.             $1 = MsgBox(262144 + 4 + 32, "OSVersion & Arch", (GUICtrlRead($Combo1) & $version & $arch) & @CRLF & "Do you wish to continue?")
    75. 

  75.             If $1 = 6 Then
    76. 

  76.                 $hGUI = GUICreate("Test", 400, 40, -1, -1, $WS_POPUP, $WS_EX_TOPMOST, $WS_EX_LAYERED)
    77. 

  77.                 GUISetBkColor(0xABCDFF)
    78. 

  78.                 $Label3 = GUICtrlCreateLabel("Importing Drivers Please be Patient", 20, 0, 275, 24)
    79. 

  79.                 GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    80. 

  80.                 $idProgress = GUICtrlCreateProgress(0, 18, 400, 20, BitOR($PBS_MARQUEE, $PBS_SMOOTH))
    81. 

  81.                 $hProgress = GUICtrlGetHandle($idProgress)
    82. 

  82.                 _SendMessage($hProgress, $PBM_SETMARQUEE, True, 20) ; final parameter is update time in ms
    83. 

  83.                 GUISetState()
    84. 

  84.                 Do
    85. 

  85.                     RunWait("Dpinst.exe /se /sw /s /path " & (GUICtrlRead($Combo1) & "\Windows"))
    86. 

  86.                     Exit
    87. 

  87.                 Until GUIGetMsg() = $GUI_EVENT_CLOSE
    88. 

  88.                 Exit
    89. 

  89.             EndIf
    90. 

  90.     EndSwitch
    91. 

  91. WEnd
    92. 

  92.  
    93. 

  93. Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    94. 

  94.  
    95. 

  95.     Local $hWndFrom, $iCode, $tNMHDR, $hWndListView
    96. 

  96.     $hWndListView = $ListView
    97. 

  97.     If Not IsHWnd($ListView) Then $hWndListView = GUICtrlGetHandle($ListView)
    98. 

  98.  
    99. 

  99.     $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    100. 

  100.     $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    101. 

  101.     $iCode = DllStructGetData($tNMHDR, "Code")
    102. 

  102.     Switch $hWndFrom
    103. 

  103.         Case $hWndListView
    104. 

  104.             Switch $iCode
    105. 

  105.  
    106. 

  106.                 Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
    107. 

  107.                     Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    108. 

  108.  
    109. 

  109.                     $Index = DllStructGetData($tInfo, "Index")
    110. 

  110.  
    111. 

  111.                     $subitemNR = DllStructGetData($tInfo, "SubItem")
    112. 

  112.  
    113. 

  113.  
    114. 

  114.                     ; make sure user clicks on the listview & only the activate
    115. 

  115.                     If $Index <> -1 Then
    116. 

  116.  
    117. 

  117.                         ; col1 ITem index
    118. 

  118.                         $item = StringSplit(_GUICtrlListView_GetItemTextString($ListView, $Index), '|')
    119. 

  119.                         $item = $item[1]
    120. 

  120.  
    121. 

  121.                         ;Col item 2 index
    122. 

  122.                         $item2 = StringSplit(_GUICtrlListView_GetItemTextString($ListView, $subitemNR), '|')
    123. 

  123.                         $item2 = $item2[2]
    124. 

  124.  
    125. 

  125.                         MsgBox(0, 'List View', "Please Select Drive from Drop Down List below")
    126. 

  126.  
    127. 

  127.                     EndIf
    128. 

  128.  
    129. 

  129.             EndSwitch
    130. 

  130.     EndSwitch
    131. 

  131.     Return $GUI_RUNDEFMSG
    132. 

  132. EndFunc   ;==>WM_NOTIFY
    133.

I think what I need to do is use the return value of each Item instead of the item itself.

I really have no Idea how to approach this.

 

 

This is all part of a Win7PE project I'm working on

I started on the above script about a week ago just prior to signing up to the forum.

 

Below is the first part of my project I started on a little over a month ago.

Although it has nothing to do with what I'm working on now,

I would eventually like to merge everything into one script.

 

Best Driver Import

AutoIt          
  1. #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    2. 

  2. #AutoIt3Wrapper_Icon=Best Driver Import.ico
    3. 

  3. #AutoIt3Wrapper_Res_Description=Driver Import
    4. 

  4. #AutoIt3Wrapper_Res_Fileversion=2.0.0.0
    5. 

  5. #AutoIt3Wrapper_Add_Constants=n
    6. 

  6. #AutoIt3Wrapper_Run_Tidy=y
    7. 

  7. #AutoIt3Wrapper_Tidy_Stop_OnError=n
    8. 

  8. #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    9. 

  9.  
    10. 

  10. #include <ButtonConstants.au3>
    11. 

  11. #include <GUIConstantsEx.au3>
    12. 

  12. #include <WindowsConstants.au3>
    13. 

  13.  
    14. 

  14. Opt("GUIOnEventMode", 1)
    15. 

  15. #region
    16. 

  16. $Form1 = GUICreate("Driver Import", 450, 200, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    17. 

  17. GUISetBkColor(0xA6CAF0)
    18. 

  18. $widthCell = 370
    19. 

  19. GUICtrlCreateLabel("       Select the drivers you want and Click Import.", 40, 20, $widthCell)
    20. 

  20. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    21. 

  21. GUICtrlCreateLabel("      All Drivers Imports all MS and Non MS drivers.", 40, 40, $widthCell)
    22. 

  22. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    23. 

  23. GUICtrlCreateLabel("All non MS drivers should be sufficient in most cases.", 40, 60, $widthCell)
    24. 

  24. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    25. 

  25. GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    26. 

  26. $Checkbox1 = GUICtrlCreateCheckbox("Net/WiFi", 90, 90, 97, 17)
    27. 

  27. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    28. 

  28. GUICtrlSetOnEvent(-1, "Checkbox1Click")
    29. 

  29. $Checkbox2 = GUICtrlCreateCheckbox("Video", 260, 90, 97, 17)
    30. 

  30. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    31. 

  31. GUICtrlSetOnEvent(-1, "Checkbox2Click")
    32. 

  32. $Checkbox3 = GUICtrlCreateCheckbox("Audio", 90, 110, 97, 17)
    33. 

  33. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    34. 

  34. GUICtrlSetOnEvent(-1, "Checkbox3Click")
    35. 

  35. $Checkbox4 = GUICtrlCreateCheckbox("Other", 260, 110, 97, 17)
    36. 

  36. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    37. 

  37. GUICtrlSetOnEvent(-1, "Checkbox4Click")
    38. 

  38. GUICtrlSetState($Checkbox4, $GUI_DISABLE + $GUI_UNCHECKED)
    39. 

  39. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    40. 

  40. $Checkbox5 = GUICtrlCreateCheckbox("All Non MS", 90, 130, 97, 17)
    41. 

  41. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    42. 

  42. GUICtrlSetOnEvent(-1, "Checkbox5Click")
    43. 

  43. $Checkbox6 = GUICtrlCreateCheckbox("All Drivers", 260, 130, 97, 17)
    44. 

  44. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    45. 

  45. GUICtrlSetOnEvent(-1, "Checkbox6Click")
    46. 

  46. $Import = GUICtrlCreateButton("Import", 100, 170, 75, 25)
    47. 

  47. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    48. 

  48. GUICtrlSetOnEvent($Import, "ImportClick")
    49. 

  49. $Exit = GUICtrlCreateButton("Exit", 270, 170, 75, 25)
    50. 

  50. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    51. 

  51. GUICtrlSetOnEvent($Exit, "ExitClick")
    52. 

  52. GUISetState(@SW_SHOW)
    53. 

  53. #endregion
    54. 

  54.  
    55. 

  55. While 1
    56. 

  56.     Sleep(100)
    57. 

  57.  
    58. 

  58. WEnd
    59. 

  59.  
    60. 

  60. Func ImportClick()
    61. 

  61.     If GUICtrlRead($Checkbox1) = $GUI_CHECKED Or GUICtrlRead($Checkbox2) = $GUI_CHECKED Or GUICtrlRead($Checkbox3) = $GUI_CHECKED Or GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
    62. 

  62.         GUISetState(@SW_HIDE, $Form1)
    63. 

  63.         RunWait("RunScanner.exe /t 10 /cp /sd /ac /m+ /y ddc.exe b /target:" & EnvGet("SYSTEMDRIVE") & "\driverbackup")
    64. 

  64.         RunWait(DirCreate(EnvGet("SYSTEMDRIVE") & "\driverbackup\Install\"))
    65. 

  65.     EndIf
    66. 

  66.     If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
    67. 

  67.         RunWait(DirMove(@HomeDrive & "\driverbackup\Net\", @HomeDrive & "\driverbackup\Install\", 1))
    68. 

  68.         RunWait(DirMove(@HomeDrive & "\driverbackup\Bluetooth\", @HomeDrive & "\driverbackup\Install\", 1))
    69. 

  69.     EndIf
    70. 

  70.     If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
    71. 

  71.         RunWait(DirMove(@HomeDrive & "\driverbackup\Display\", @HomeDrive & "\driverbackup\Install\", 1))
    72. 

  72.     EndIf
    73. 

  73.     If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
    74. 

  74.         RunWait(DirMove(@HomeDrive & "\driverbackup\MEDIA\", @HomeDrive & "\driverbackup\Install\", 1))
    75. 

  75.     EndIf
    76. 

  76.     If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
    77. 

  77.  
    78. 

  78.     EndIf
    79. 

  79.     If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
    80. 

  80.         GUISetState(@SW_HIDE, $Form1)
    81. 

  81.         RunWait("RunScanner.exe /t 10 /cp /sd /ac /m+ /y ddc.exe b /target:" & EnvGet("SYSTEMDRIVE") & "\driverbackup")
    82. 

  82.     EndIf
    83. 

  83.     If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
    84. 

  84.         Run("Import all Drivers.exe")
    85. 

  85.         Exit
    86. 

  86.     EndIf
    87. 

  87.     If GUICtrlRead($Checkbox1) = $GUI_CHECKED Or GUICtrlRead($Checkbox2) = $GUI_CHECKED Or GUICtrlRead($Checkbox3) = $GUI_CHECKED Or GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
    88. 

  88.         RunWait("Dpinst.exe /path " & EnvGet("SYSTEMDRIVE") & "\driverbackup\Install\")
    89. 

  89.         GUISetState(@SW_SHOW, $Form1)
    90. 

  90.         DirRemove(EnvGet("SYSTEMDRIVE") & "\driverbackup", 1)
    91. 

  91.         Exit
    92. 

  92.     EndIf
    93. 

  93.     If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
    94. 

  94.         RunWait("Dpinst.exe /path " & EnvGet("SYSTEMDRIVE") & "\driverbackup\")
    95. 

  95.         GUISetState(@SW_SHOW, $Form1)
    96. 

  96.         DirRemove(EnvGet("SYSTEMDRIVE") & "\driverbackup", 1)
    97. 

  97.         Exit
    98. 

  98.     EndIf
    99. 

  99. EndFunc   ;==>ImportClick
    100. 

  100.  
    101. 

  101. Func Checkbox1Click()
    102. 

  102.     If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
    103. 

  103.     EndIf
    104. 

  104. EndFunc   ;==>Checkbox1Click
    105. 

  105.  
    106. 

  106. Func Checkbox2Click()
    107. 

  107.     If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
    108. 

  108.     EndIf
    109. 

  109. EndFunc   ;==>Checkbox2Click
    110. 

  110.  
    111. 

  111. Func Checkbox3Click()
    112. 

  112.     If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
    113. 

  113.     EndIf
    114. 

  114. EndFunc   ;==>Checkbox3Click
    115. 

  115.  
    116. 

  116. Func Checkbox4Click()
    117. 

  117.     If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
    118. 

  118.     EndIf
    119. 

  119. EndFunc   ;==>Checkbox4Click
    120. 

  120.  
    121. 

  121. Func Checkbox5Click()
    122. 

  122.     If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
    123. 

  123.         GUICtrlSetState($Checkbox1, $GUI_DISABLE + $GUI_UNCHECKED)
    124. 

  124.         GUICtrlSetState($Checkbox2, $GUI_DISABLE + $GUI_UNCHECKED)
    125. 

  125.         GUICtrlSetState($Checkbox3, $GUI_DISABLE + $GUI_UNCHECKED)
    126. 

  126.         GUICtrlSetState($Checkbox4, $GUI_DISABLE + $GUI_UNCHECKED)
    127. 

  127.         GUICtrlSetState($Checkbox6, $GUI_DISABLE + $GUI_UNCHECKED)
    128. 

  128.     Else
    129. 

  129.         GUICtrlSetState($Checkbox1, $GUI_ENABLE)
    130. 

  130.         GUICtrlSetState($Checkbox2, $GUI_ENABLE)
    131. 

  131.         GUICtrlSetState($Checkbox3, $GUI_ENABLE)
    132. 

  132.         GUICtrlSetState($Checkbox4, $GUI_DISABLE + $GUI_UNCHECKED)
    133. 

  133.         GUICtrlSetState($Checkbox6, $GUI_ENABLE)
    134. 

  134.     EndIf
    135. 

  135. EndFunc   ;==>Checkbox5Click
    136. 

  136.  
    137. 

  137. Func Checkbox6Click()
    138. 

  138.     If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
    139. 

  139.         GUICtrlSetState($Checkbox1, $GUI_DISABLE + $GUI_UNCHECKED)
    140. 

  140.         GUICtrlSetState($Checkbox2, $GUI_DISABLE + $GUI_UNCHECKED)
    141. 

  141.         GUICtrlSetState($Checkbox3, $GUI_DISABLE + $GUI_UNCHECKED)
    142. 

  142.         GUICtrlSetState($Checkbox4, $GUI_DISABLE + $GUI_UNCHECKED)
    143. 

  143.         GUICtrlSetState($Checkbox5, $GUI_DISABLE + $GUI_UNCHECKED)
    144. 

  144.     Else
    145. 

  145.         GUICtrlSetState($Checkbox1, $GUI_ENABLE)
    146. 

  146.         GUICtrlSetState($Checkbox2, $GUI_ENABLE)
    147. 

  147.         GUICtrlSetState($Checkbox3, $GUI_ENABLE)
    148. 

  148.         GUICtrlSetState($Checkbox4, $GUI_DISABLE + $GUI_UNCHECKED)
    149. 

  149.         GUICtrlSetState($Checkbox5, $GUI_ENABLE)
    150. 

  150.     EndIf
    151. 

  151.  
    152. 

  152. EndFunc   ;==>Checkbox6Click
    153. 

  153.  
    154. 

  154. Func ExitClick()
    155. 

  155.     DirRemove(EnvGet("SYSTEMDRIVE") & "\driverbackup", 1)
    156. 

  156.     Exit
    157. 

  157. EndFunc   ;==>ExitClick
    158. 

  158.  
    159. 

  159. Func Form1Close()
    160. 

  160.     DirRemove(EnvGet("SYSTEMDRIVE") & "\driverbackup", 1)
    161. 

  161.     Exit
    162. 

  162. EndFunc   ;==>Form1Close
    163.

My PC I have 2 hard drives with 5 partitions, 3 containing OS. Win7 x86, Win7 x64 and XP.

ListView would show 5 drives.3 OS and 2 for file storage.

 

If you can help me out and show me what to do or just point me in the right direction

and see how bad I can screw things up.

 

Any help appreciated

↧

Assign two different programs to two buttons

March 14, 2014, 12:13 am
$
0
0

HI team,

 

I have two different programs and i want to use them using one single message box. For Example If I click on button no A then first program should execute and if i click on button no 2 then my second program should run...

 

Can anyone help me.....how can i write a code.....

any help would be appreciated. thanks!

 

Program no 1

Sleep(200)
$url = "https://www.google.co.in/?gfe_rd=ctrl&ei=ab8ZU4PrKKrW8gf5lYDgDg&gws_rd=cr"
$oIE = _IECreate($url)
Sleep(100)
_IELoadWait($oIE)
Sleep(100)
$hIE = _IEPropertyGet($oIE, "hwnd") ; Get Handle of the IE window
WinSetState($hIE, "" ,@SW_MAXIMIZE)
Sleep(100)

Program no 2

Sleep(200)
send("#r")                                ;--------------------to open a folder--------------
Sleep(200)
send("C:\LTE Market List{enter}")
sleep(200)
WinWaitActive("LTE Market List")
sleep(200)
WinSetState("LTE Market List", "", @SW_MAXIMIZE)
sleep(200)
WinActivate("LTE Market List")
sleep(200)                                 ;---------------------------to click on 1st sheet---------------
MouseClick("left", 249, 128, 1)
Sleep(200)
EndSwitch
↧

Script Running Twice

March 14, 2014, 1:59 am
$
0
0

Hello,

 

I've used AutoIt several years ago, and I want to use it again today for a new project. So I have installed the latest version on my Windows 7 machine.

 

I have started to write a few simple scripts, build exe files and execute them. But each time I double-click the .exe file runs twice !

 

For example the "msgbox.au3" example provided with the installation files will display the text box a first time, then I click "Ok", and the text box shows up again.

 

Here is the script :

 

#include <Constants.au3>

MsgBox($MB_SYSTEMMODAL, "AutoIt Example", "This is line 1" & @CRLF & "This is line 2" & @CRLF & "This is line 3")

 

What is wrong ???

↧

Missing a RegExp prepare function?

March 14, 2014, 2:53 am
$
0
0

I want to generate a regex from an user input and need a regex prepare function.
I couldn't find any in the documentation, am I missing something?
It should escape out all regex characters, so like "te.st" would become "te\.st".

↧
↧

running autoit script as administrator

March 14, 2014, 4:16 am
$
0
0
Hi all
I’m farely new to autoit and am trying to write a script that interacts with the windows bootmanager using bcdedit
If I run bcdedit from a command prompt as the normal user I get the following
The boot configuration data store could not be opened.
Access is denied.
If I right click on command prompt and choose run as administrator
And then run Bcdedit, it runs normally.
The script code looks as follows
 
#include <Constants.au3>
#include <MsgBoxConstants.au3>
 #include <Array.au3>
 #include <String.au3>
 
; main section
; This script requires full Administrative rights
#RequireAdmin
 
; run bcdedit and store list in array
Local $iPID = Run(@ComSpec & ' /C bcdedit /enum /v', "c:\", @SW_HIDE, $STDOUT_CHILD)
ProcessWaitClose($iPID)
Local $SBootManagerList = StdoutRead($iPID)
MsgBox($MB_SYSTEMMODAL, "output", $SBootManagerList)
I’m not sure where to go to fix this. I tried to use the runas function which seems to fail, possibly because on the windows 8 machines the administrator account is disabled. Anyone got any suggestions on how I can get this to work?
↧

do findnextfile works over a network?

March 14, 2014, 4:22 am
$
0
0

Hi there,

 

quick question above it doesn't seem to work here is this correct?

 $path = '\\192.168.5.60\skripte\'&$paket&'\Install\'
   $file = FileFindFirstFile($path&"*.*")
   If $file = -1 Then
      MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
      Return False
   else
      while 1
         $filename = FileFindnextFile($file)
         if @error then
            MsgBox(1, "", "Error: No files/directories matched the search pattern.")
            ExitLoop
         else
            $temp = FileGetTime($path&$filename,0,1)
            $modtime = StringMid($temp,7,2) & "." & StringMid($temp,5,2) &"."& StringLeft($temp,4) &" "& StringMid($temp,9,2) &":"&StringMid($temp,11,2)
            IniWrite(@scriptdir&"config.ini",$filename,"ModifiedTime",$modtime)
         endif
      wend
   EndIf

greets Tekkion

↧
Search

Searching for a substring with Apostrophes

March 14, 2014, 6:39 am
$
0
0

Hi,

 

 I guess it is a simple one...

 

 I need to find a substring (which is in a variable) within another string.

 

 The substring has " in it.

 

 For example: L"A for Los Angeles. US"A = United State of America.

 So I need to find the L"A or US"A.

 

 (I do not know if it correct in english, but it is correct in my language, and anyhow - it is just an example for you to understand what I mean.)

 

Thanks!

↧

An easy one

March 14, 2014, 6:47 am
$
0
0

Hello,

 

I cannot figure out how to disable ESC and keep it from closing my GUI. Any suggestions?

 

Thanks!

↧
↧

How to find image in screen?

March 14, 2014, 7:07 am
$
0
0

I'm using PixelSearch function but it's not enought for me. Because there are same pixel, also the image is not static. So it sometimes on top, sometimes on left&bottom. So I need a function to find image in screen. is it possible? Or, have you got any advice? 

↧

3rd Party Apps in Windows Media Center

March 14, 2014, 8:23 am
$
0
0

Hello,

 

I have a third party app in Windows Media Center that I'm trying to use AutoIt to write a script to "click" on one of the buttons.

 

When I use the AutoIt Windows Info program, it will not read any relevant information about the 3rd party app in WMC.  It doesn't show any Visible Text or buttons.  Even when I try to use the Finder Tool.

 

Is this because of how WMC runs the 3rd party app within itself?

 

Thanks in advance for any help or insight this forum can give.

 

Greg

↧

gives error shuts down form

March 14, 2014, 8:33 am
$
0
0

this is the code I try to run:

Func volgerteller()

$link = GUICtrlRead($List1)

        $oIE = _IECreate("https://twitter.com/"&$link,1,0)   ;linkkk

$oInput2s = _IETagNameGetCollection($oIE, "a")
For $oInput2 In $oInput2s
    If $oInput2.className() = "js-nav" Then
        If StringInStr($oInput2.innerHTML(), 'Volgend') Then
            ConsoleWrite(_StringBetween($oInput2.innerHTML(),'>','<')[0] & @CRLF)
            ExitLoop
        EndIf
    EndIf
Next

$numbvolgers = (_StringBetween($oInput2.innerHTML(),'>','<')[0] & @CRLF)

GUICtrlSetData($List2,"volgers"& $numbvolgers )
if @error then MsgBox(0, "", "gevonden" )

if I remove this line it doesn't shuts down immediately ( but the function will not work)

$numbvolgers = (_StringBetween($oInput2.innerHTML(),'>','<')[0] & @CRLF)

GUICtrlSetData($List2,"volgers"& $numbvolgers )

so it has something to do with the last 2 lines,

 

this is the error that i get:

+>16:23:00 AU3Check ended.rc:0
>Running:(3.3.10.2):C:\Program Files (x86)\AutoIt3\autoit3.exe "C:\Users\joesoef pc\Desktop\autoit\program\test.au3"    
--> Press Ctrl+Alt+F5 to Restart or Ctrl+Break to Stop
"C:\Program Files (x86)\AutoIt3\Include\String.au3" (42) : ==> Subscript used on non-accessible variable.:
Func _StringBetween($sString, $sStart, $sEnd, $fCase = False)
Func _StringBetween($sString, $sStart, $sEnd, $fCase = False^ ERROR
->16:23:00 AutoIt3.exe ended.rc:1
+>16:23:00 AutoIt3Wrapper Finished..
>Exit code: 1    Time: 1.065

 yesterday it worked fine I saved it, now I start the code and the form direclty shuts down..

↧
Viewing all 12506 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>