Private

Nice to see that this was possible ) i agree, although the tooltip is limited by it's text. also the baloontooltip?

And YES I found the solution ! In the while from the GUI i've included a Case Else that checkes if an item is selected and unequal to the previous one. not pretty but functional ! Case Else $aStaSelectedIndice = _GUICtrlListView_GetSelectedIndices($Lv_StaDet_Overzicht, True) If $aStaSelectedIndice[0] > 0 and $aStaSelectedIndice[1] <> $istaDetIndex Then $iStaDetIndex = _GUICtrlListView_GetSelectedIndices($Lv_StaDet_Overzicht) $a_StaDetIndex = _GUICtrlListView_GetItemTextArray(GuiCtrlGetHandle($Lv_StaDet_Overzicht), $iStaDetIndex) _RefreshBarcodeDetails(3, $a_StaDetIndex[1]) EndIf

Hi All, To my postNr's I look like a beginner but I'm very pleased with the help and the forum for almost all my questions. and I've managed a LOT with autoit without posting But currently I'm struggled with the use of 2 listviews. To know what I mean it's handy to see the attached image XMLStatusIntern.jpg or just run the script (no home made UDF's). The access database that it uses is automatically created with it's content, you need MSAccess for this How it works: There is a hierarchy in my program that for each StatusDetails there can be more BarcodeDetails. So my goal is when a user clicks an item in the StatusDetails listview, that the Barcode Details Listview gets his Barcodes from the access database with the status that is hotClicked. that's ok and this works. What doesnt work: My second goal is that if the user is in the statusdetails, that EVERY hot item that is hot will load the Barcode Details, either by keyUp/Down, pageUp/Down or whatever. Only with my WM_MY_COMMAND as following you can see that if the case is $LVN_KEYDOWN I get the HotItem with a messageBox. only the HotItem is the item that is clicked and not the item that is selected which is hot because it's blue? Func MY_WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam) #forceref $hWnd, $iMsg, $iwParam Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo $hWndListView = $Lv_StaDet_Overzicht If Not IsHWnd($Lv_StaDet_Overzicht) Then $hWndListView = GUICtrlGetHandle($Lv_StaDet_Overzicht) $tNMHDR = DllStructCreate($tagNMHDR, $ilParam) $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom")) $iIDFrom = DllStructGetData($tNMHDR, "IDFrom") $iCode = DllStructGetData($tNMHDR, "Code") Switch $hWndFrom Case $hWndListView Switch $iCode Case $LVN_KEYDOWN; A key has been pressed $tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam) MsgBox(0, "", _GuiCtrlListView_GetHotItem(GuiCtrlGetHandle($Lv_StaDet_Overzicht))) $a_SelectedItemDetail = _GUICtrlListView_GetItemTextArray($Lv_StaDet_Overzicht, _GuiCtrlListView_GetHotItem($Lv_StaDet_Overzicht)) _RefreshBarcodeDetails(3, $a_SelectedItemDetail[1]) Case $NM_CLICK; Sent by a list-view control when the user clicks an item with the left mouse button $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam) $a_SelectedItemDetail = _GUICtrlListView_GetItemTextArray($Lv_StaDet_Overzicht, _GuiCtrlListView_GetHotItem($Lv_StaDet_Overzicht)) _RefreshBarcodeDetails(3, $a_SelectedItemDetail[1]) ; No return value EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc Maybe my intepretation is incorrect with HotItem, maybe someone can help me with this? PLEASE If there are any questions or if this isn't clear please don't hesitate to reply.

Hej GEOSoft ! I've read the posts (6 pages ) I'm more than happy with your initative to create something like this ! and I cannot wait to implement your features !!! Thanks in advance !

Many many thanks to this effort ! although i'm using the real basic of this UDF. The problem was that the normal GuiCtrlCreateEdit in autoit does strange things after a thousand lines. this one works perfect ! En haan, ik krijg d'r de vinketering van ! doei !

We are not sure what you are trying to do, but i think you want to move either a window or a control driven by positions / states. use the helpfile from autoit, that's why i almost never post questions. For windows WinGetPos ( "title" [, "text"] ) WinGetState ( "title" [, "text"] ) for controls ControlGetPos ( "title", "text", controlID ) GUICtrlGetState ( [controlID] )

We are not sure what you are trying to do, but i think you want to move either a window or a control driven by positions / states. use the helpfile from autoit, that's why i almost never post questions. For windows WinGetPos ( "title" [, "text"] ) WinGetState ( "title" [, "text"] ) for controls ControlGetPos ( "title", "text", controlID ) GUICtrlGetState ( [controlID] )

Dear all, I have been needing this function for a LONG time because i'm busy creating severel programs for my work. now for example i'm creating an import module to the database; this is using multiple fields in once where i need to store more values for example: Dim $a_Record_1[15][6] $a_Record_1[0][0] = "TableName" $a_Record_1[0][1] = "FieldName" $a_Record_1[0][2] = "FieldValue" $a_Record_1[0][3] = "FieldLength" $a_Record_1[0][4] = "FieldScale" $a_Record_1[0][5] = "FieldType" $a_Record_1[1][0] = "T_EDI_DOSSIERS" $a_Record_1[1][1] = "DOSSIERNUMMER" $a_Record_1[1][3] = "" $a_Record_1[1][4] = "" $a_Record_1[1][5] = "" $a_Record_1[2][0] = "T_EDI_DOSSIERS" $a_Record_1[2][1] = "EDI_REFERENTIE" $a_Record_1[2][3] = "" $a_Record_1[2][4] = "" $a_Record_1[2][5] = "" $a_Record_1[3][0] = "T_EDI_DOSSIERS" $a_Record_1[3][1] = "DOSSIERAFDELINGCODE" $a_Record_1[3][3] = "" $a_Record_1[3][4] = "" $a_Record_1[3][5] = "" p.s. this is followed by a database lookup so the empty variables are not useless :-) When i'm debugging my application it's hard to get it all the time in a textbox for example $a_Record_1[3][3] because _ArrayDisplay has its restriction to a 1dimensional array. then I came with the idea to get a handy udf that copys it to my clipboard. Everybody is absolutely free to use it. most of credits go to brian because i ripped half his script for _arraydisplay. ;=============================================================================== ; ; Function Name: _Array2dToClip() ; Description: ClipPut a 2-dimensional array. ; Author(s): Daryl Peeters <darylpeeters at hotmail dot com> ; ;=============================================================================== Func _Array2dToClip(Const ByRef $avArray) Local $iCounter = 0, $sMsg = "", $xCounter = 0 For $iCounter = 0 To UBound($avArray) - 1 for $xCounter = 0 to Ubound($avArray, 2) -1 $sMsg = $sMsg & "[" & $iCounter & "]["& $xCounter & "] = " & StringStripCR($avArray[$iCounter][$xCounter]) & " " Next $sMsg = $sMsg & @CRLF Next ClipPut($sMsg) EndFunc ;==>_ArrayToClip All the best.

All credits to those who helped to this UDF. GREAT WORK ! I'm creating an import function to the database we are waiting for that to develop from our software house, who can do that best as we self! i'm lovin it!

Thank you in advance!!! you just made my day !!! :-) have a nice weekend. func sp_com_read_column($oExcel) dim $a_Staffel[1][5] $a_Staffel[0][0] = "Staffelgrens" $a_Staffel[0][1] = "Tarief" $a_Staffel[0][2] = "Minimumbedrag" $a_Staffel[0][3] = "Bloktarief Aantal" $a_Staffel[0][4] = "Bloktarief Bedrag" $i = 2 While 1 $a_Column = _ExcelReadArray($oExcel, $i, 1, 5) if $a_Column[0] = "" Then ExitLoop EndIf redim $a_Staffel[UBound($a_Staffel,1)+1][5] for $y = 0 to Ubound($a_Column) -1 $a_Staffel[$i-1][$y] = $a_Column[$y] Next $i = $i + 1 WEnd EndFunc

Make my day, i'm gonna try this. lol, i saw the redim, but did not know that it was used for this! You'll be hearing from me.

Dear all, I'm creating an import function from Excel to Autoit to a database. now, from this excel document i use the ReadArray from ExcelCOM UDF, that all works fine. See the array as following: ------------------------------------------------- Field 1 | Field 2 | Field 3 | Field 4 | Field 5 | ------------------------------------------------- Now i want to keep adding data to these fields, as being a table, for use later on BUT i don't know how long this array will be (for rows) so i cannot dim this max at front. I've tried just adding it, within the use of my loopvariables, but it comes with the error: ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded. and that's obvious, there my array has the max rowlength as being [1][5] I just tried to dim it as [999][5] at front (THIS WORKS ), but i'm not happy with this. can someone please help me with a correct solution on this, i would really appreciate this. Thanks in advance. I also have the excel document added to this post, to get a feeling for the input. This is my function: func sp_com_read_column($oExcel) dim $a_Staffel[1][5] $a_Staffel[0][0] = "Staffelgrens" $a_Staffel[0][1] = "Tarief" $a_Staffel[0][2] = "Minimumbedrag" $a_Staffel[0][3] = "Bloktarief Aantal" $a_Staffel[0][4] = "Bloktarief Bedrag" $i = 2 While 1 $a_Column = _ExcelReadArray($oExcel, $i, 1, 5) if $a_Column[0] = "" Then ExitLoop EndIf for $y = 0 to Ubound($a_Column) -1 msgbox(0, "", "$y = " & $i-1 & @CRLF & "$i = " & $y & @CRLF & "Value = " & $a_Column[$y]) ; Begin filling the array with [1][0] ; Use begin by loopvariabels $i = 1, This is constant inside this loop, as it increments it's the loop thats the goal ; $y = 0, incremental inside this loop, the fiels as transposed vertically, needs to be used vertically $a_Staffel[$i-1][$y] = $a_Column[$y] _ArrayDisplay($a_Staffel) Next $i = $i + 1 WEnd _ArrayDisplay($a_Staffel, 0, 0, 1) EndFunc

THANK YOU IN ADVANCE!!!!!! now i see where i made the mistake.. grrrrr got strungled with the parameters for connection type and locktype. best regards, daryl

dear all, i used the script from Chris Haney 'database.au3' with the functions _ReadData and _OpenDBRS, _CloseDBRS and looks ike the attachment. BUT, i've changed several settings, and now the script isn't working again. i can't figure out the problem, so i went searching for this script again in autoit. now i can't find it anymore and a my program is'nt working again. so my request is if someone can post this include please. thanks in advance. daryl peeters

this UDF is more than perfect i'm loving it! all credits to the creators !!!!!!!!! best regards, daryl

@ Geosoft Why whould i want to use the switch with endswitch? Would it go faster or... @PaulIA Thank you very much, this works great!!! I though so that my array was all string. Thanks for your help!

You could try an use cases

Hello All, I'm currently desgning a program that checks fiels from a CSV formatted file For each line i have to check if a value is correcto to a certein complexibility. for example i have attached a file that should be checked. Now the problem is: I have the check if for example $y = 1 is a integer but my code: If IsInt ($aZending_Laadadres[$y]) = 0 Then _SP_Write_Log($sFilename, $x, $y, "Line identifier is an alphanumeric character, should be numeric / 1")oÝ÷ Ù7¥É¶­¶«zÛ«)ཀྵnzêºH°íªê-Æ¥Á¬¬Ñ«"¶+yø§yÖ¬j{¦z¸r«iË^­«,'{ayªëk&òºÈ§«­¢+Ù}ÉÉå¥ÍÁ±ä ÀÌØíi¹¥¹}1ÉÌ°ÅÕ½ÐìÅÕ½Ðì¤oÝ÷ Ù©Ýjëh×6msgBox (0, "", $aZending_Laadadres[$y])oÝ÷ Øz0q©âµ·©¢Ë"nW(^(ºW[yªi­ç"j×jëh×6#include <file.au3> #include <array.au3> #Include <Date.au3> $aRecords = "" $sFilename = "C:\200704201631144.txt" $nErrors = 0 FileDelete ("C:\Controle_EDI_KLG.log") If Not _FileReadToArray($sFilename, $aRecords) Then MsgBox(4096, "Error - KLG Europe", "An error occured while opening the specified file" & @CRLF & @CRLF & @CRLF & _ "Filename : " & $sFilename & @CRLF & _ "Error : " & @error) Exit EndIf For $x = 1 To $aRecords[0] $aSplit = StringSplit($aRecords[$x], ";") Select Case $aSplit[1] = 0 _SP_Controle_Header($aSplit) Case $aSplit[1] = 1 _SP_Controle_Dossier($aSplit) Case $aSplit[1] = 2 _SP_Controle_Zending_Laadadres($aSplit) Case $aSplit[1] = 3 _SP_Controle_Zending_Losadres($aSplit) Case $aSplit[1] = 4 _SP_Controle_Zendingsregel($aSplit) Case $aSplit[1] = 5 _SP_Controle_Zending_Statussen($aSplit) Case $aSplit[1] = 6 _SP_Controle_Zending_Redundant($aSplit) Case $aSplit[1] = 7 _SP_Controle_Zendingsregel_Adr($aSplit) Case $aSplit[1] = 8 _SP_Controle_Zendingsregel_Barcodes($aSplit) Case $aSplit[1] = 9 _SP_Controle_Trailer($aSplit) EndSelect Next Func _SP_Controle_Header($aHeader) EndFunc Func _SP_Controle_Dossier($aDossier) EndFunc Func _SP_Controle_Zending_Laadadres($aZending_Laadadres) For $y = 1 to $aZending_Laadadres[0] Select Case $y = 1 ; Recordsoort n/ 1 If IsInt ($aZending_Laadadres[$y]) = 0 Then _SP_Write_Log($sFilename, $x, $y, "Line identifier is an alphanumeric character, should be numeric / 1") EndIf If StringLen ($aZending_Laadadres[$y]) > 1 Then _SP_Write_Log($sFilename, $x, $y, "Line identifier is larger then 1 character") EndIf Case $y = 2 ; Zendingskenmerk a/ 3 $aZending_Laadadres[$y] = StringReplace ($aZending_Laadadres[$y], '"', "") If StringLen ($aZending_Laadadres[$y]) > 3 Then _SP_Write_Log($sFilename, $x, $y, "Shipment brand is larger then 3 character") EndIf If $aZending_Laadadres[$y] = "" Then _SP_Write_Log($sFilename, $x, $y, "Shipment brand is not filled") EndIf Case $y = 3 ; Type zending a/ 10 $aZending_Laadadres[$y] = StringReplace ($aZending_Laadadres[$y], '"', "") If StringLen ($aZending_Laadadres[$y]) > 10 Then _SP_Write_Log($sFilename, $x, $y, "Shipment type is larger then 10 numeric character") EndIf If $aZending_Laadadres[$y] = "" Then _SP_Write_Log($sFilename, $x, $y, "Shiptment type is not filled") EndIf Case $y = 4 ; Incasso derden n/ 1 If StringLen ($aZending_Laadadres[$y]) > 1 Then _SP_Write_Log($sFilename, $x, $y, "Incasso derden is larger then 1 character") EndIf Case $y = 5 ; Opdrachtgevercode a/ 10 $aZending_Laadadres[$y] = StringReplace ($aZending_Laadadres[$y], '"', "") If StringLen ($aZending_Laadadres[$y]) > 10 Then _SP_Write_Log($sFilename, $x, $y, "Clientcode is larger then 10 character") EndIf If $aZending_Laadadres[$y] = "" Then _SP_Write_Log($sFilename, $x, $y, "Client code is not filled") EndIf EndSelect Next EndFunc Func _SP_Controle_Zending_Losadres($aZending_Losadres) EndFunc Func _SP_Controle_Zendingsregel($aZendingsregel) EndFunc Func _SP_Controle_Zending_Statussen($aZending_Statussen) EndFunc Func _SP_Controle_Zending_Redundant($aZending_Redundant) EndFunc Func _SP_Controle_Zendingsregel_Adr($aZendingsregel_Adr) EndFunc Func _SP_Controle_Zendingsregel_Barcodes($aZendingsregel_Barcodes) EndFunc Func _SP_Controle_Trailer($aTrailer) EndFunc Func _SP_Write_Log($sErrFilename, $nErrLine, $sErrPosition, $sErrError) If $nErrors = 0 Then FileWriteLine ("C:\Controle_EDI_KLG.log", "Timestamp" & ";" & "Filename" & ";" & "Line no." & ";" & "Position" & ";" & "Description") $nErrors = $nErrors + 1 EndIf FileWriteLine ("C:\Controle_EDI_KLG.log", _Now() & ";" & $sErrFilename & ";" & $nErrLine & ";" & $sErrPosition & ";" & $sErrError ) $nErrors = $nErrors + 1 EndFunc

That's what i call Support! i was irritated by the slow sorter but as reading this topic i'm sure this will be over!! i don't have VBS installed, but i'm trying with the Express VBS. Great work ! Best Regards, Daryl

Hello all :"> , Kinda shy, cause this is my first post in this forum I have checked out AutoIt and when i was drunk with a friend of mine, he had an idea and so dared me to create an Alarm in AutoIt... this is what i created, (all in dutch but it's all about the functionality wright ) #cs ---------------------------------------------------------------------------- AutoIt Version: 3.1.1.0 Author: Daryl Peeters Script Function: Wekker voor Frankie #ce ---------------------------------------------------------------------------- #region --- Configureren GUI --- ; Constanten aanroepen #include <GuiConstants.au3> #include <Date.au3> #NoTrayIcon HotKeySet ("+^{F12}","_StopAlarm") #region --- Instellingen GUI --- ; Aanmaken van de GUI GuiCreate ("Wekker voor Frankie", 493, 234, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS) ) ; Datumvelden $LA_DatumVanAf = GuiCtrlCreateLabel ("Datum vanaf", 30, 20, 200, 20 ) $DA_DatumVanAf = GuiCtrlCreateDate ("Datum vanaf", 30, 40, 200, 20 ) $LA_DatumTotEnMet = GuiCtrlCreateLabel ("Datum tot en met", 270, 20, 200, 20 ) $DA_DatumTotEnMet = GuiCtrlCreateDate ("Datum vanaf", 270, 40, 200, 20 ) ; Tijdvelden $LA_TijdVanAf = GuiCtrlCreateLabel ("Tijd vanaf", 30, 70, 200, 20 ) $LA_ScheidingTijdVanAf = GuiCtrlCreateLabel (" : ", 75, 95, 40, 20 ) $CO_UurTijdVanAf = GUICtrlCreateCombo ("00", 30, 90, 40, 20 ) $CO_MinTijdVanAf = GuiCtrlCreateCombo ("00", 90, 90, 40, 20 ) $LA_TijdTotEnMet = GuiCtrlCreateLabel ("Tijd tot en met", 270, 70, 200, 20 ) $LA_Scheiding = GuiCtrlCreateLabel (" : ", 315, 95, 40, 20 ) $CO_UurTijdTotEnMet = GUICtrlCreateCombo ("00", 270, 90, 40, 20 ) $CO_MinTijdTotEnMet = GuiCtrlCreateCombo ("00", 330, 90, 40, 20 ) ; Knop om de werkker te starten $BTN_StartWekker = GuiCtrlCreateButton ("Start wekker", 270, 130, 200, 20 ) $BTN_StopWekker = GuiCtrlCreateButton ("Stop wekker", 270, 150, 200, 20 ) ; Group voor een lijn om de instellingen $GR_Alles = GuiCtrlCreateGroup ("", 20, 10, 460, 180 ) ; Inputbox (ReadOnly) voor de CountDown $IN_CountDown = GuiCtrlCreateInput ("Countdown", 20, 200, 460, 20, $ES_READONLY ) #endregion --- Instellingen GUI --- #region --- Tijden declareren --- ; Minuten declareren GuiCtrlSetData ($CO_MinTijdVanAf, "00|05|10|15|20|25|30|35|40|45|50|55","00") GuiCtrlSetData ($CO_MinTijdTotEnMet,"00|05|10|15|20|25|30|35|40|45|50|55","00") ; Uren declareren GuiCtrlSetData ($CO_UurTijdVanaf, "00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24","00") GuiCtrlSetData ($CO_UurTijdTotEnMet,"00|01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24","00") #endregion --- Tijden declareren --- #region --- Dagen declareren --- ;~ msgbox (0,"", $Weekdag & " " & @MDAY & " " & $Maand & " " & @YEAR) $Weekdag = "" If @WDay = 1 Then $Weekdag = "zondag" ElseIf @WDAY = 2 Then $Weekdag = ",aandag" ElseIf @WDAY = 3 Then $Weekdag = "dinsdag" ElseIf @WDAY = 4 Then $Weekdag = "woensdag" ElseIf @WDAY = 5 Then $Weekdag = "donderdag" ElseIf @WDAY = 6 Then $WeekDag = "vrijdag" ElseIf @WDAY = 7 Then $WeekDag = "zaterdag" EndIf #endregion --- Dagen declareren --- #region --- Maand declareren --- ;~ msgbox (0,"", $Weekdag & " " & @MDAY & " " & $Maand & " " & @YEAR) $Maand = "" If @MON = 1 Then $Maand = "januari" ElseIf @MON = 2 Then $Maand = "februari" ElseIf @MON = 3 Then $Maand = "maart" ElseIf @MON = 4 Then $Maand = "april" ElseIf @MON = 5 Then $Maand = "mei" ElseIf @MON = 6 Then $Maand = "juni" ElseIf @MON = 7 Then $Maand = "juli" ElseIf @MON = 8 Then $Maand = "augustus" ElseIf @MON = 9 Then $Maand = "september" ElseIf @MON = 10 Then $Maand = "oktober" ElseIf @MON = 11 Then $Maand = "november" ElseIf @MON = 12 Then $Maand = "december" EndIf #endregion --- Maand declareren --- #region --- While in Gui --- ; While voor de GUI GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $BTN_StopWekker _StopAlarm() Case $msg = $BTN_StartWekker #region --- Tijden uitlezen --- ; [Minuten : Uren] VANAF declareren $ACO_MinTijdVanAf = GuiCtrlRead ($CO_MinTijdVanAf) $ACO_UurTijdVanAf = GuiCtrlRead ($CO_UurTijdVanAf) $ACO_TijdVanAf = $ACO_UurTijdVanAf & ":" & $ACO_MinTijdVanAf ; [Miniuten : Uren] TOTENMET declareren $ACO_MinTijdToTEnMet = GuiCtrlRead ($CO_MinTijdTotEnMet) $ACO_UurTijdTotEnMet = GuiCtrlRead ($CO_UurTijdTotEnMet) $ACO_TijdToTEnMet = $ACO_UurTijdTotEnMet & ":" & $ACO_MinTijdTotEnMet #endregion --- Tijden uitlezen --- #region --- Datums uitlezen --- ; [Datum] VANAF declareren $ADA_DatumVanAf = GuiCtrlRead ($DA_DatumVanAf) ; [Datum] TOTENMET declareren $ADA_DatumTotEnMet = GuiCtrlRead ($DA_DatumTotEnMet) #endregion --- Datums uitlezen --- While ($ADA_DatumVanAf = ($Weekdag & " " & @MDAY & " " & $Maand & " " & @YEAR)) and ($ACO_TijdVanaf= @HOUR & ":" & @MIN) do beep (1200,200) sleep (100) beep (1200,200) sleep (100) beep (1200,200) sleep (100) beep (1200,500) sleep (100) beep (1200,500) sleep (100) beep (1200,200) sleep (100) beep (1200,200) sleep (100) beep (1200,200) sleep (1000) until (($Weekdag & " " & @MDAY & " " & $Maand & " " & @YEAR) = $ADA_DatumTotEnMet) and (@HOUR & ":" & @MIN = $ACO_TijdTotEnMet) WEnd Case Else ;;; EndSelect WEnd Func _StopAlarm() $MsgBox_Antwoord = 0 $MsgBox_Antwoord = MsgBox(52,"Wekker veur Frankie","Zeg Frankie, de bis now toch neet al wakker ofwaal? ") Select Case $MsgBox_Antwoord = 6 ;Yes Exit Case $MsgBox_Antwoord = 7 ;No MsgBox(0,"Wekker veur Frankie","Det dacht ik al, gank maar lekker verder pitte, dan jengel ik nog wat door") EndSelect EndFunc #endregion --- While in Gui --- #endregion --- Configureren GUI --- you could better download the script and open it in SciTe because of my tabs (i like to read a script in a blink of an eye so i tab'd my script ) Please let me know what you think of my scripting, i would appreaciate if any comments would go in this post, as it can be negative and positive. Best regards, Daryl Peeters

so lol, i got an error with using my bot : If $msg = $clown then ClownClick() Error: Recursion level has been exceede - Autoit will quit to prevent stack overflow That's because i changed $count to 10000 HotKeySet ("{ESC}","exitps") ProcessWait ("clown.exe") while 1 $coord = PixelSearch( 0, 0, 1280, 1280, 0xFF0000 ) If Not @error Then MouseClick ("Left", $coord[0]+10,$coord[1]+10,1,1) EndIf WEnd func exitps() exit 0 EndFunc credit to the poster of the script p.s. i got 1140 as my score

Thanx guys the script from Mega is working fine for me #include <Constants.au3> Global $text Global $command = "net view" $stream = Run(@comspec & ' /c ' & $command,'',@SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ControlSend("C:\WINNT\System32\cmd.exe", "", "", "n" & "{Enter}") While 1 $textline = StdoutRead($stream) $text = $text & @CRLF & $textline If @error Then ExitLoop Wend ;~ MsgBox(0, "STDOUT read:", $text) FileWrite ("C:\Test.txt",$text) $file = FileOpen("C:\test.txt", 0) ; Check if file opened for reading OK If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf ; Read in lines of text until the EOF is reached While 1 $line = FileReadLine($file) If $line = StringInStr("\\ADMINISTRATIE-2","") then msgbox (0,"","found!") ExitLoop EndIf If @error = -1 Then ExitLoop MsgBox(0, "Line read:", $line) Wend FileClose($file)

Woaw, thnx guys! just what i needed u guys are 's