Jump to content

walle

Active Members
  • Posts

    227
  • Joined

  • Last visited

walle's Achievements

Polymath

Polymath (5/7)

0

Reputation

  1. Add this line and check if it made any difference #RequireAdmin
  2. Add #RequireAdmin "This function was primarily aimed at allowing AutoIt scripts to work correctly with Windows Vista User Account Control (UAC) (However, will also work on Windows 2000 and Windows XP)."
  3. Thank you!
  4. Can someone help me to adapt this dllcall to the latest version of autoit. Thanks http://msdn.microsoft.com/en-us/library/ms710815(VS.85).aspx Func mciSendString($s) DllCall("winmm.dll", "int", "mciSendString", "str", $s, "str", "", "int", 65534, "hwnd", 0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc
  5. Thank you SpookMeister Really grateful.
  6. Well, sort off. I was looking for the command "netstat -ano" Found it just after having created this thread. Thanks anway! So, I got the pid but I still have some difficulties to collect the assoicated ip. I want to, based on the pid, collect the associated ip. Sounds easy? Well, I have never been good at collecting info from dos. This is what i got so far. Lets say I want the ip for pid 2260. How should I proceed? #include <Constants.au3> $list = ProcessList("Software.exe") for $i = 1 to $list[0][0] $pid = $list[$i][1] next Local $foo = Run("netstat -ano", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) Local $sStdOutRead = "" While 1 $sStdOutRead &= StdoutRead($foo) if not $sStdOutRead = "" then ExitLoop Wend Active Connections Proto Local Address Foreign Address State PID TCP 0.0.0.0:135 0.0.0.0:0 LISTENING 1216 TCP 0.0.0.0:445 0.0.0.0:0 LISTENING 4 TCP 0.0.0.0:2869 0.0.0.0:0 LISTENING 1488 TCP 127.0.0.1:1029 0.0.0.0:0 LISTENING 2260 TCP 127.0.0.1:5152 0.0.0.0:0 LISTENING 1596 TCP 127.0.0.1:5152 127.0.0.1:2271 CLOSE_WAIT 1596 TCP 192.168.1.5:139 0.0.0.0:0 LISTENING 4
  7. I'm looking for a way to list or log all IP network connections (indexed by IP address or hostname) and the associated local process (and possibly other information). How should I proceed? Edit: netstat -ano ...
  8. Edit: Too slow
  9. Maybe this can get you started. Another, easier way to check if a torrent has finished downloading is by using Utorrents "launch application when torrent has finished" and then search for that particelar process. WinWait("[REGEXPTITLE:Torrent.\d+.*$]") WinSetState("[REGEXPTITLE:Torrent.\d+.*$]","",@SW_SHOWNORMAL) Do $GetWST = WinGetState("[REGEXPTITLE:Torrent.\d+.*$]") If $GetWST = BitAND(21,23) Then WinSetState("[REGEXPTITLE:Torrent.\d+.*$]","",@SW_SHOWNORMAL) WinSetState("[REGEXPTITLE:Torrent.\d+.*$]","",@SW_HIDE) EndIf $title = "[REGEXPTITLE:Torrent.\d+.*$]" $listcontrol = "[CLASSNN:SysListView322]" $hWnd = ControlGetHandle( $title, "", $listcontrol ) $header_hWnd = _GUICtrlListView_GetHeader($hWnd) $Torrentname = "" $FindTN = _GUICtrlListView_FindInText($HWND, $Torrentname) $TEST = _GUICtrlListView_GetItemText($HWND, $FindTN) $ccount = ControlListView("[REGEXPTITLE:Torrent.\d+.*$]", "", "SysListView322", "GetSubItemCount") $icount = ControlListView("[REGEXPTITLE:Torrent.\d+.*$]", "", "SysListView322", "GetItemCount") Dim $listarray[$ccount][$icount+1] For $c = 0 To $ccount-1 $listarray[$c][0] = _GUICtrlListView_GetItemText($header_hWnd, $c) $Countmore = $icount - $FindTN For $i = $FindTN To $icount-$Countmore $itemtext = _GUICtrlListView_GetItemText($hWnd, $i, $c) $listarray[$c][$i+1] = $itemtext Next Next For $c = 0 To $ccount-1 ;ConsoleWrite($listarray[$c][0]) For $i = 0 To $icount-1 ;ConsoleWrite($listarray[$c][$i+1]) Next ;ConsoleWrite("|") Next
  10. Correct Edit: Installed software. List of installed software 'The script writes all installed software on the computer. Wscript.Echo "Software installed on this machine :" Wscript.Echo "************************************" Set S = CreateObject("RegEdit.Server") For Each Key In S.Keys("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall").SubKeys If Key.ExistsValue("DisplayName") Then Wscript.Echo Key.Values("DisplayName").Value Else Wscript.Echo "(" & Key.Name & ")" End If Next
  11. ControlSend("Untitled", "", "Edit1", "This is a line of text in the notepad window") title The title of the window to access. text The text of the window to access. controlID The control to interact with. See Controls. string String of characters to send to the control. flag [optional] Changes how "keys" is processed: flag = 0 (default), Text contains special characters like + to indicate SHIFT and {LEFT} to indicate left arrow. flag = 1, keys are sent raw.
  12. Might be a little bug. The red slime can't move backwards while jumping or jump while moving backwards. Uhm, appears randomly. Great game!
  13. Okey, get the right form, and use _IEFormSubmit. Hopefully Dale, the king of IE, or someone ells with a little more experience can help you. I have not touched Autoit for over a year now. So, I'm a bit rusty $oForm = _IEFormGetCollection($oIE, 0) _IEFormSubmit ($oForm)
  14. I'm surprised how quickly I forget things.... Anyway, increase the number until you find the right form, as temporary solution. Form 1 $oForm = _IEFormGetCollection($oIE, 1)
  15. Download latest service pack from microsoft. Found on Google: Using Registry Key Go to Start—>Run type regedit click ok Expand and navigate to the following registry key HKEY_CURRENT_USER\Software\Microsoft\Windows\DWN On the right pane, locate ColorizationColor with type as DWORD. Right click on ColorizationColor, and select Delete on the right click menu. Click on OK to confirm the deletion. Then right click on registry value titled Composition (type DWORD) and select Modify. Change the value to 0 (by default is 1).
×
×
  • Create New...