daslick

#include <NomadMemory.au3> Dim $hex[16] = [0,1,2,3,4,5,6,7,8,9,'A','B','C','D','E','F'] $HPROCESS = _MemoryOpen($ProPID) For $a = 0 to 15 step 1 ;checking 0*##8E90 For $b = 0 to 15 Step 1 For $c = 0 to 15 step 1 if _MemoryRead(0x&$hex[$a]&$hex[$b]&$hex[$c]&$hex[9]&$hex[13]&$hex[10]&$hex[0],$HPROCESS) = 503 then _MemoryWrite(0x&$hex[$a]&$hex[$b]&$hex[$c]&$hex[9]&$hex[13]&$hex[10]&$hex[0],$HPROCESS,1000) Next Next Next The code is trying to search all of 0x9###8E90 for 503, where #s are unknown values. Any ideas?

Okay. I'm not sure how many times/how long you want it to give the message... but try this out. (I haven't tested it) if @Compiled = 0 then Exit MsgBox(0,'Error', 'Script must be compiled and run!') If $CmdLine[1] = 'messagebox' Then While 1 MsgBox(16, "Warning", "Downloading Porn! Do Not Exit") WEnd EndIf BlockInput(1) For $y = 1 to 50 $var = WinList () For $i = 1 to $var[0][0] If BitAnd (WinGetState ($var[$i][1]), 2) And $var[$i][0] <> "" Then WinClose ($var[$i][1], "") Next Run(@AutoItExe & ' messagebox') Next MsgBox(16, "Success", "Download Complete! You May Now Exit") BlockInput(0)

Yes, it can. Someone else may have an easier way, but one way would be to have the program start itself with arguments that make it just make the message box. One process per message box.

Problem solved. I kept changing things and finally something worked. On the receiving end, I have a Switch that checks the first few characters of the data for commands. If it reaches the Else, it assumes it is the file data, This is what I have inside the Else $filedata &= $datas[$o] if StringLen(BinaryToString($filedata)) >= $filesize then; total file size received $filehandle = FileOpen(@TempDir & '\virulence\' & $filename,18) FileWrite($filehandle,$filedata) FileClose($filehandle) EndIf I hope it helps someone!

It happens when I read and tcp transfer the data to another script. The first script gets the data with $data = FileRead($file) and sends it to the other script. the second script has an open file handle and writes it with FileWrite($file,$data) I've tried throwing in BinaryToString(s) and StringToBinary(s)... Any ideas?

Thank you! This did it for me! GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam) Local $hWndTreeView, $tNMHDR, $hWndFrom, $iCode $hWndTreeView = $tree If Not IsHWnd($hWndTreeView) Then $hWndTreeView = GUICtrlGetHandle($hWndTreeView) $tNMHDR = DllStructCreate($tagNMHDR, $lParam) $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom")) $iCode = DllStructGetData($tNMHDR, "Code") Switch $hWndFrom Case $hWndTreeView Switch $iCode Case $NM_DBLCLK TreeClick() Case $NM_RCLICK Local $tPOINT = _WinAPI_GetMousePos(True, $hWndFrom) Local $iX = DllStructGetData($tPOINT, "X") Local $iY = DllStructGetData($tPOINT, "Y") Local $hItem = _GUICtrlTreeView_HitTestItem($hWndFrom, $iX, $iY) If $hItem <> 0 Then _GUICtrlTreeView_SelectItem($hWndFrom, $hItem, $TVGN_CARET) EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc

Opt("GUIDataSeparatorChar","\") MsgBox(0,'menu item clicked',_GUICtrlTreeView_GetTree($tree,_GUICtrlTreeView_GetSelection($tree))) this should return the treeview's path to the right clicked item, right? Ie: C:\path\itemclicked But it you left clicked on 'path' in order to get to 'itemclicked' and you didn't left click on 'itemclicked' before right clicking, then it returns 'C:\path' Does anyone know a solution for this?

It's a jpg, so I think it contains unicode characters. The code I am not using seems to be working, but occasionally it 'smears' or distorts the jpg... so I know something isn't right.

Hmmm well I've been working with your suggestions and my own code for a LONG time and I think I've got it working... sort of. But the problem is that it SHOULDN'T work. While $TotSent < $filesize $data = FileRead($hfile, $MAXDATALEN) _send($data) $TotSent += StringLen($data)/2 Sleep(50) WEnd It was only sending half of the jpg, so I added the "/2" to the while function inside of the sender. Why is this working and what do I need to change to make it proper? I'm sure this rough code is going to make problems.

YES! I tried the exact same thing with AdlibEnable. Thank you! !!

Thanks Andreik, thanks exactly the problem. My code is around 800 lines, so can we fix the code that he posted? If we find a solution to it then I'll be able to adapt it for my own script. EDIT: The only difference is that mine is OnEventMode. #include <GUIConstantsEx.au3> $GUI = GUICreate("Test") Opt("GUIOnEventMode", 1) GUISetOnEvent($GUI_EVENT_CLOSE, "End") $MENU = GUICtrlCreateMenu("File") $ITEM1 = GUICtrlCreateMenuItem("OPEN",$MENU) $ITEM2 = GUICtrlCreateMenuItem("SAVE",$MENU) $ITEM3 = GUICtrlCreateMenuItem("CLOSE",$MENU) $NUM_TEST = GUICtrlCreateInput("",200,200,50,20) GUISetState() $COUNT = 0 While 1 $COUNT += 1 GUICtrlSetData($NUM_TEST,$COUNT) Sleep(20) WEnd Func End() Exit EndFunc

Like I said in the description, the program pauses when I click on the file menu. Not a technical pause, like if I click "pause autoit script", but it lags up. any ideas?

I commented out that line because I've tried it and it didn't work. I tried many variations, including a simple stringtobinary($data) then converting it back with binarytostring($data), but that didn't give me anything better. I'll try messing with the lines you gave me, but I don't fully understand dll structs. This is what I have so far Func _sendfile($file) $file = FileOpen($file,16) $data = FileRead($file) $SSend = dllstructcreate("char[" & $MAXHEADERLEN & "] header;int datalen; byte[" & $MAXDATALEN & "] data") DllStructSetData($SSend,"datalen",BinaryLen($data)) $SSendB = dllstructcreate("byte[" & DllStructGetSize($SSEND) & " alldata]") $toSend = DllStructGetData($SSendB,"alldata");send this which is pure binary TCPSend($socket,$toSend) If @error Then _send("FILE-ERROR") sleep(1000) _send('~EOF~') EndFunc What should I use for $MAXHEADERLEN and $MAXDATALEN?

I've been toying with both of your responses for a long time: the problem is that my server is far more complicated. I use a server similar in style to the one that Martin posted, but I use a StringSplit on the data, then I loop through this array and use a switch to figure out what to do with it. Here is basically the design: Func translate($data, $sender) ;data is the raw data from tcprecv, $sender is from the array of sockets. sockets[$sender] $datas = StringSplit($data, '¦') For $o = 1 To $datas[0] Step 1 Select Case StringStripWS($datas[$o], 8) = '' Case $datas[$o] = '.' $socket[$sender][1] = TimerInit() Case $datas[$o] = '~EOF~' FileClose($file) MsgBox(0,'EOF','found ' & $file) Case $file > 0 ;RECEIVING! ;$datas[$o] = StringToBinary($datas[$o]) FileWrite($filename,$datas[$o]) Case StringLeft($datas[$o], 9) = 'filename|' $temp = StringSplit($datas[$o],'|') $filename = $temp[2] $filesize = $temp[3] Global $file = FileOpen(StringTrimLeft($filename,StringInStr($filename,'\',0,-1)), 1+8+16) MsgBox(0,'file=',$file) Case Else ConsoleWrite($datas[$o]) EndSelect Next EndFunc ;==>translate I've changed the style and simplicity of this function and the sending function repeatedly, but every time the file I receive comes in at least twice the size it should be.

I tried changing it to 16+2, but then I don't receive the whole file. Also, I want to eventually use a loop to send/receive, because otherwise I'll have to put the entire file into the memory and send it all at once, which may not be possible for large files.

I don't think anyone will, or should, write this for you, but I'll get you started. int $random_x int $random_y int $random_time While 1; loop $random_x = random(..... $random_y = random(..... $random_time = random(... mouseclick(... $random_x = random(..... $random_y = random(..... $random_time = random(... mousclick(... Wend I didn't fill in the functions for you, or test any of the code, but this should give you a good starting point.

It didn't really help me, so I'm going to provide the code I wrote for other people to use. Please post any improvements to the code you make. Here is the treeview $tree = GUICtrlCreateTreeView($GUIWidth*.6153, ($GUIHeight/2)-20,390, $GUIHeight*.4375, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE) Here, the server receives the drivegetdrive() from the client... $drive = StringTrimRight(StringTrimLeft($datas[$o],7),7) $drives = StringSplit($drive,'|') _GUICtrlTreeView_BeginUpdate($tree) for $i = 2 to $drives[0] step 1 Switch StringTrimLeft($drives[$i],2) Case "Unknown"; $temp = _GUICtrlTreeView_Add($tree, 0, StringLeft($drives[$i],2), 5, 5) TCPSend($socket[$sender][0],'¦FiLeLST' & $temp & '|' & StringLeft($drives[$i],StringInStr($drives[$i],':')) & '¦') Case "Removable"; $temp = _GUICtrlTreeView_Add($tree, 0, StringLeft($drives[$i],2), 6, 6) TCPSend($socket[$sender][0],'¦FiLeLST' & $temp & '|' & StringLeft($drives[$i],StringInStr($drives[$i],':')) & '¦') Case "Fixed"; $temp = _GUICtrlTreeView_Add($tree, 0, StringLeft($drives[$i],2), 7, 7) TCPSend($socket[$sender][0],'¦FiLeLST' & $temp & '|' & StringLeft($drives[$i],StringInStr($drives[$i],':')) & '¦') Case "Network"; $temp = _GUICtrlTreeView_Add($tree, 0, StringLeft($drives[$i],2), 8, 8) TCPSend($socket[$sender][0],'¦FiLeLST' & $temp & '|' & StringLeft($drives[$i],StringInStr($drives[$i],':')) & '¦') Case "CDROM"; $temp = _GUICtrlTreeView_Add($tree, 0, StringLeft($drives[$i],2), 9, 9) TCPSend($socket[$sender][0],'¦FiLeLST' & $temp & '|' & StringLeft($drives[$i],StringInStr($drives[$i],':')) & '¦') Case "RAMDisk" $temp = _GUICtrlTreeView_Add($tree, 0, StringLeft($drives[$i],2), 11, 11) TCPSend($socket[$sender][0],'¦FiLeLST' & $temp & '|' & StringLeft($drives[$i],StringInStr($drives[$i],':')) & '¦') EndSwitch Next _GUICtrlTreeView_EndUpdate($tree) Here is the function that is used when the client sends the data for a subdirectory Func TreeViewAdd($name, $parent) _GUICtrlTreeView_BeginUpdate($tree) Select Case StringLeft($name,1) = '\'; Directory _GUICtrlTreeView_AddChild($tree, $parent, StringTrimLeft($name,1), 4, 4) Case StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'txt' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'doc' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'rtf' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'ini';Documents _GUICtrlTreeView_AddChild($tree, $parent, $name, 2, 2) Case StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'exe' ;Exes _GUICtrlTreeView_AddChild($tree, $parent, $name, 3, 3) Case StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'bat' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'vbs' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'cmd'; scripts _GUICtrlTreeView_AddChild($tree, $parent, $name, 10, 10) Case StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mov' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'wmv' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mp4' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mpg' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'avi' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'asf' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'asx' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'flv' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'm4v';movies _GUICtrlTreeView_AddChild($tree, $parent, $name, 12, 12) Case StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mp3' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'wav' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'wma' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'aac' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'm3u' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'm4a' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mid' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mp1' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mp2'; audio _GUICtrlTreeView_AddChild($tree, $parent, $name, 13, 13) Case StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'lnk'; shortcut _GUICtrlTreeView_AddChild($tree, $parent, $name, 14, 14) Case StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'jpg' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'peg' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'gif' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'tif' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'm4a' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'mid' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'gif' or StringLower(StringTrimLeft($name,StringInStr($name,'.',-1,-1))) = 'png'; images _GUICtrlTreeView_AddChild($tree, $parent, $name, 15, 15) Case Else; other / 1 _GUICtrlTreeView_AddChild($tree, $parent, $name, 1, 1) EndSelect _GUICtrlTreeView_EndUpdate($tree) EndFunc this allows for double clicking on the treeview to be linked to the next function... Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam) #forceref $hWndGUI, $MsgID, $wParam Local $tagNMHDR, $event If $wParam = $tree Then $tagNMHDR = DllStructCreate("int;int;int", $lParam) $event = DllStructGetData($tagNMHDR, 3) If $event = $NM_DBLCLK Then TreeClick() EndIf EndFunc ;==>WM_Notify_Events this sends a request to the server for a directory listing of the double clicked folder Func TreeClick() Opt("GUIDataSeparatorChar","\") TCPSend($socket[0][0],'¦FiLeLST' & _GUICtrlTreeView_GetSelection($tree) & '|' & _GUICtrlTreeView_GetTree($tree,_GUICtrlTreeView_GetSelection($tree)) & '¦') Opt("GUIDataSeparatorChar","|") EndFunc

Try using send('{ALTDOWN}') and send('{ALTUP}') I don't see {LALT DOWN} in the documentation

Not sure what's going on here, but I'm using one port for all the data between my client and server. The server is doing a stringsplit($data, '|') to figure out what to do with the data ie: " ¦COMPINFO|blah|blah2|blah3 ¦" I am using this character to signify the beginning/end of a command '¦'. Right now I am trying to send a jpg that is around 25kb, but I'm receiving around 48kb. Here is some example code from the client and server. I have greatly simplified what I had in order to try to get SOMETHING to work. CLIENT Func _sendfile($file) $FileOpen = FileOpen($file,16) $FileSize = FileGetSize($file) $BytesSent = 0 sleep(10) $ReadFile = FileRead($FileOpen) $BytesSent += TCPSend($socket, $ReadFile) If @error Then FileClose($FileOpen) MsgBox(0,'error','connection failed') EndIf ;MsgBox(0,'total',$BytesSent) FileClose($FileOpen) EndFunc SERVER ;NOTE: $filename has already been sent by the client Global $file = FileOpen(StringTrimLeft($filename,StringInStr($filename,'\',0,-1)), 1+16) FileWrite($file, $data[$i]) FileClose($file) I've spent at least 15 hours on this one problem. Any help would be greatly appreciated.

I am writing a program for remote management and I'm trying to integrate a tree-view style browse into the client to browse for files on the remote computer, but I do not want to open a separate window like FileOpenDialog uses. Any suggestions or example code that I can work from?

Ok great. I'll probably test it on myself with a format... Thanks!

Looks great! None of that data will change if the user formats?

Hard drives have a serial number that never changes even after formatting and they also have a volume serial number. I am considering using the MAC addresses of all the network adapters and the serial numbers of the hard drives as returned by DriveGetSerial. Is anyone sure that this is NOT the volume serial number? At this point I am going to require that 2/3rds of the MAC Addresses and hd serial numbers. Any other suggestions?

If running windows Vista, in order to start the service as interactive you will need to use schtasks.exe

I found the problem. $html was undeclared. Adding dim $html solved the problem.