Home Bunny

Hi Bit, Love your program ! Could we do auto-harvesting after planting crops?, perhaps with adding a time table to the planted crops ... And of course then autoplowing and auto-seeding , ..., .... Keep up the good work. Jim

Thx SmOke_N & Xenobiologist for your prompt repleys. altough the script off SmOke_N worked faster, i've used the coding off Xenobiologist (top one) as this worked recurs. Timings for 8700 files with 35 files the last 30 days: FileFindFirstFile: 3 min _GetFilesFolder_Rekursiv: 1 min Thanks !!!!!!!

Hi, Is there an alternative to 'FileFindFirstFile', that can handle only files created after a specified date ? $Search = FileFindFirstFile($SourceFolder & "\*.chp") Running trough 8700 files with 'FileFindFirstFile' takes 4 minutes, and there are only 5 relevant files ... Regards,

More feature requests: - Drag and drop launch command while the config mode is active. - Disable the config menu, with a manual inputted INI key - Extend behavior: Auto logoff windows when the menu is closed. - User specific settings to make exceptions for 1-2 users.

Found it, the NUL character ==> StringToBinary( $chars ) = 0x00 for the ones that have the same problem: #include <Array.au3> Local $avArray[1] local $Line, $Line2 $i = 0 $file = FileOpen("Mydata.txt",0) ; Check if file opened for reading OK If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf ; Read in 1 character at a time until the EOF is reached While 1 $chars = FileRead($file, 1) If @error = -1 Then ExitLoop If StringToBinary( $chars ) <> 0x00 Then if $chars <> @LF Then $Line2 &= $chars Else If $Line2 <> "" Then _ArrayAdd($avArray, $Line2) EndIf $Line2 = "" EndIf EndIf Wend FileClose($file) _ArrayDisplay($avArray, $file) Regards

I'm reading files to convert the content to a SQL database. The thing i'm having is following: In my files (opened in SciTe) have sometimes a 'NUL' seperator: NUL; (the NUL is visible in white text, black background) with FileReadLine a empty string is returned, also it isn't posible to copy the 'NUL', gives also a empty string ... How can i proceed to read these lines?

Hi, What does this script do? If you have copied all your NOKIA Telephone Contacts with bluetooth to your Computers HardDrive, you wil have 200+ seperate vCard Files. How can you import these into Outlook (or another mail program)? One By one? This script will merge all these small files into one CSV file. This is a script without GUI! configuration is done into the the 3 first lines. $SearchFolder = "C:\Temp\Nokia\Contacts\" $SearchExt = "vcf" $SaveToFile = "C:\Temp\Nokia\Contacts\Export.csv" Dim $H_Begin, $H_Version, $H_Name, $H_TelWork, $H_FaxWork, $H_End $search = FileFindFirstFile($SearchFolder & "*." & $SearchExt) ; Check if the search was successful If $search = -1 Then MsgBox(0, "Error", "No files/directories matched the search pattern") Exit EndIf $SaveFile = FileOpen( $SaveToFile, 2 ) $WriteLine = "BEGIN" & "," & "VERSION" & "," & "NAME" & "," & "WORK_TEL" & "," & "WORK_FAX" & "," & "END" FileWriteLine($SaveFile,$WriteLine) While 1 $file = FileFindNextFile($search) If @error Then ExitLoop ;~ MsgBox(4096, "File:", $file) $VCARD_File = FileOpen($SearchFolder & $file, 0) ; Check if file opened for reading OK If $VCARD_File = -1 Then MsgBox(0, "Error", "Unable to open file." & $VCARD_File) Exit EndIf $H_Begin = "" $H_Version = "" $H_Name = "" $H_TelWork = "" $H_FaxWork = "" $H_End = "" ; Read in lines of text until the EOF is reached While 1 $line = FileReadLine($VCARD_File) If @error = -1 Then ExitLoop $Header = StringTrimRight($line, StringLen($line) - StringInStr($line,":") + 1 ) $result = StringTrimLeft($line,StringLen($Header) + 1 ) Select Case $header = "BEGIN" $H_Begin = $result Case $header = "VERSION" $H_Version = $result Case $header = "N" $H_Name = StringReplace( $result,";", "") Case $header = "TEL;VOICE" $H_TelWork = $result Case $header = "TEL;FAX" $H_FaxWork = $result Case $header = "END" $H_End = $result EndSelect Wend $WriteLine = $H_Begin & "," & $H_Version & "," & $H_Name & "," & $H_TelWork & "," & $H_FaxWork & "," & $H_End FileWriteLine($SaveFile,$WriteLine) FileClose($VCARD_File) WEnd ; Close the search handle FileClose ( $search ) FileClose ( $SaveFile )

Yes indeed, didn't tought about that. However i don't now how

... Gives following error : C:\temp\test2.au3 (2) : ==> Subscript used with non-Array variable.: $tray_height = $tray_pos[3] $tray_height = $tray_pos^ ERROR Any ideas? My AutoIt Version: 3.2.8.1

How can we find the height of the Menu Bar? I wanna place a window exactly above the Menu bar like this: #include <GUIConstants.au3> $AppWith = 300 $AppHeigt = 500 $MainForm= GUICreate("MainForm",$AppWith , $AppHeigt, @DesktopWidth - $AppWith, @DesktopHeight - $AppHeigt ) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Unfortunatly the above screen doesn't take the height of the Menu bar in count. Any help would be appreciated. Thx.

Thx Ptrex. I skipping the UPnP Protocol, as this is only available for Windows XP. I've managed to get the SSDP Broadcast, and my Linksys router is reponding to my broadcast. The problem now, is that the repons is going back to the source port of my broadcast. How can we find out what my source port is when i do a "UDPSend" to a predefined destination port. $p = "" $p = $p & "M-SEARCH * HTTP/1.1" & @CRLF $p = $p & "Host:239.255.255.250:1900" & @CRLF $p = $p & "ST:upnp:rootdevice" & @CRLF $p = $p & "Man:" & """" & "ssdp:discover" & """" & @CRLF $p = $p & "MX:3" & @CRLF $p = $p & @CRLF UDPStartup() ;============================================== $socket = UDPOpen("239.255.255.250", 1900) If @error <> 0 Then MsgBox(0,"Error","Unable to Bind") Exit EndIf $n=0 While 1 If $n < 4 Then $status = UDPSend($socket, $p) If $status = 0 then MsgBox(0, "ERROR", "Error while sending UDP message: " & @error) Exit EndIf EndIf Sleep(1000) $data = UDPRecv($socket, 50) If $data <> "" Then MsgBox(0, "UDP DATA", $data, 1) Exit EndIf $n = $n + 1 WEnd Func OnAutoItExit() UDPCloseSocket($socket) UDPShutdown() EndFunc How did i found out that my router is reponding?, Microsoft Network Monitor 3.1 Any Ideas how to proceed?

I was looking around with the same idea , currently there are already projects that could make this happen: WebServer: http://www.autoitscript.com/forum/index.ph...=nfwu+webserver Implementing HTML Skins: http://www.autoitscript.com/forum/index.php?showtopic=30564 UPnP Implementation: Now we come to the part where i'm stuck. for making a UPnP compliant webserver, we need to broadcast with SSDP. The best article i found so far is from Zac Bowling. I was hoping that someone could point me in the direction of how to broadcast packets with UDP to adress 239.255.255.250:1900 with message: M-SEARCH * HTTP/1.1 Host:239.255.255.250:1900 ST:upnp:rootdevice Man:\"ssdp:discover\" MX:3 --- PS: My personal favourite Upnp AV Media server is WIZD

Does somebody know about the AutoIt Web-Server? I wanna use the web-based AutoIt in conjuction with a AutoIt Web-Server. That would create the option of a program with integrated WebSever and flexible html-scripting. Cheers,

Hi Are there more functions available for sending keyboard input to a game? I've tried the Send and the Controlsend functions, both without luck. Why: I'm trying to create a autologin for the game Runescape. Greetz, PS: If you are really interested, source is attached. RuneScapeBot.zip

However the question is not adressed to me, I would like that feature Greetz,

Just curious, I'm a quiet new to Runescape, why would you drop the ores?? While i'm typing this message i got a clue ... maybe for getting a higher level?

For me it is working fine. Nice work, what is the status of the beta-things? Greetz,

Thx BigDod, I was missing the latest beta, therefor i couldn't found examples in the helpfile :"> However my script is finished now, a sms sending script, for the Belgium proximus users: #include <IE.au3> ;*// Grap Commandline arguments if $CmdLine[0] = 4 then $ProximusUID = $CmdLine[1] $ProximusPWD = $CmdLine[2] $SendTo = $CmdLine[3] $SendMessage = $CmdLine[4] Else Msgbox (16 , "Error" , "Incorrect Commandline arguments founded : " & $CmdLineRaw , 20) Exit EndIf ;*// Goto Proximus SMS Page $ProximusPage = "http://smsonline.proximus.be/smsonline/sms/compose?laf=customer&lan=nl" $oIE = _IECreate ($ProximusPage) ;*// Select SMS Form $oForm = _IEFormGetObjByName ($oIE, "myform") ;*// Send To $oSuffix = _IEFormElementGetObjByName ($oForm, "suffix") _IEFormElementSetValue ($oSuffix, $SendTo) ;*// SMS Message $oContent= _IEFormElementGetObjByName ($oForm, "smsmessage") _IEFormElementSetValue ($oContent, $SendMessage) ;*// Hit Link 'Send SMS' _IELinkClickByText ($oIE, "Bericht verzenden") ;*// Select Security Form $oForm = _IEFormGetObjByName ($oIE, "frmLogin") ;*// User ID $oUID = _IEFormElementGetObjByName ($oForm, "msisdn") _IEFormElementSetValue ($oUID, $ProximusUID) ;*// Password $oPWD = _IEFormElementGetObjByName ($oForm, "password") _IEFormElementSetValue ($oPWD, $ProximusPWD) _IEImgClick ($oIE, "btn_go.gif", "src") ;*// Give the page time to complete and close Sleep(5000);Sleep for 5 seconds _IEQuit ($oIE) Greetz,

Hi all, I want for example open IE, go to google, fill in some text and click the search button. I used google only as an example, is there someone who as an example script how to do this? thx,