KeyOne

thanks .. it doesn't work , it run duplicate form and don't exit first form .. thanks JohnOne I put _ScriptRestart() after the button and everything seems be ok is it true .. ?!

Hi there first sorry for my english I want to know how could I reset the scripts with click on button3 .. ?! #include <GUIConstantsEx.au3> #include <GuiButton.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <WindowsConstants.au3> #include <Misc.au3> #Include <Array.au3> #include <Excel.au3> Global $NameAndFamily input() Func main() Dim $i = 1 , $j = 0, $k = 1 Dim $begin = TimerInit() Local $answerArray[41] $answerArray[0] = "Answer" Local $timeArray[41] $timeArray[0] = "Time" Local $testAnswerArray[41][2] #Region Main GUI $Form1 = GUICreate("Sym. Test", 846, 530, 515, 205) $Pic1 = GUICtrlCreatePic("photo\1n.jpg", 24, 56, 374, 410) $Pic2 = GUICtrlCreatePic("photo\1n.jpg", 448, 56, 374, 410) $Button1 = GUICtrlCreateButton("Show Result", 480, 488, 105, 25) $Button2 = GUICtrlCreateButton("Export To Excel", 600, 488, 105, 25) $Button3 = GUICtrlCreateButton("Start New Test", 720, 488, 105, 25) _GUICtrlButton_Enable($Button1, False) _GUICtrlButton_Enable($Button2, False) GUISetState(@SW_SHOW) #EndRegion While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Pic1 If $i < 5 Then $dif = TimerDiff($begin) ConsoleWrite($i & " = Normal, Time = " & $dif & @CRLF) $answerArray[$i] = 1 $timeArray[$i] = $dif $i+=1 GUICtrlSetImage($Pic1, "photo\" & $i & "n.jpg") GUICtrlSetImage($Pic2, "photo\" & $i & "s.jpg") $begin = TimerInit() ElseIf $i = 5 Then $dif = TimerDiff($begin) ConsoleWrite($i & " = Normal, Time = " & $dif & @CRLF) $answerArray[$i] = 1 $timeArray[$i] = $dif $i+=1 _GUICtrlButton_Enable($Button1, True) _GUICtrlButton_Enable($Button2, True) EndIf Case $Pic2 If $i < 5 Then $dif = TimerDiff($begin) ConsoleWrite($i & " = Symmetry, Time = " & $dif & @CRLF) $answerArray[$i] = 2 $timeArray[$i] = $dif $i+=1 GUICtrlSetImage($Pic1, "photo\" & $i & "n.jpg") GUICtrlSetImage($Pic2, "photo\" & $i & "s.jpg") $begin = TimerInit() ElseIf $i = 5 Then $dif = TimerDiff($begin) ConsoleWrite($i & " = Normal, Time = " & $dif & @CRLF) $answerArray[$i] = 1 $timeArray[$i] = $dif $i+=1 _GUICtrlButton_Enable($Button1, True) _GUICtrlButton_Enable($Button2, True) EndIf Case $Button1 For $j = 0 To 40 Step 1 $testAnswerArray[$j][0] = $answerArray[$j] $testAnswerArray[$j][1] = $timeArray[$j] Next _ArrayDisplay($testAnswerArray) Case $Button2 $oExcel = _ExcelBookNew() _ExcelWriteArray ($oExcel, 1, 1, $answerArray, 1) _ExcelWriteArray ($oExcel, 1, 2, $timeArray, 1) _ExcelBookSaveAs($oExcel, @ScriptDir &"\results\" & $NameAndFamily & ".xls", "xls", 0, 1) _ExcelBookClose($oExcel) Case $Button3 Exit EndSwitch WEnd EndFunc Func input() #Region InPut GUI $Form2 = GUICreate("Input Name And Family", 236, 112, 780, 380) $Input1 = GUICtrlCreateInput("", 72, 16, 145, 21) $Input2 = GUICtrlCreateInput("", 72, 48, 145, 21) $Label1 = GUICtrlCreateLabel("Name", 16, 16, 37, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $Label2 = GUICtrlCreateLabel("Family", 16, 48, 43, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $Button1 = GUICtrlCreateButton("OK", 16, 80, 201, 25) GUISetState(@SW_SHOW) #EndRegion While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 If String(GUICtrlRead($Input1)) <> "" And String(GUICtrlRead($Input2)) <> "" Then If StringIsSpace(String(GUICtrlRead($Input1))) Or StringIsSpace(String(GUICtrlRead($Input2))) Then MsgBox(0,"", "Please Fill All Forms") Else $NameAndFamily = String(GUICtrlRead($Input1)) & " " & String(GUICtrlRead($Input2)) GUISetState(@SW_HIDE, $Form2) main() Exit EndIf Else MsgBox(0,"", "Please Fill All Forms") EndIf EndSwitch WEnd EndFuncscript.rar

Thx Again .. Yes , I Saw Code .. I Tried To Use _WinAPI_WideCharToMultiByte Function , But It Coundn't Help Me .. ! But Your Solution Was Very Good .. !

Yes , Many Thx Andy ! >_<

Hi .. I Want To Write A Simple RSS Reader For My Site& IT's RSS Link Is : www.cina.ir/feed I Found Some UDFs & Examples In Forum Such As RSS.Au3 & ... But They Have Problem With Site's Language .. Site Language Is Persian , UTF-8 #include-once #region _RSS ; RSS Reader ; Created By: Frostfel #include <INet.au3> #include <Array.au3> ; ============================================================================ ; Function: _RSSGetInfo($RSS, $RSS_InfoS, $RSS_InfoE[, $RSS_Info_ = 1]) ; Description: Gets RSS Info ; Parameter(s): $RSS = RSS Feed Example: "http://feed.com/index.xml" ; $RSS_InfoS = String to find for info start Example: <title> ; $RSS_InfoE = String to find for info end Example: </title> ; $RSS_Info_Start = [optional] <info>/</info> To start at ; Some RSS feeds will have page titles ; you dont want Defualt = 0 ; Requirement(s): None ; Return Value(s): On Success - Returns RSS Info in Array Starting at 1 ; On Failure - Returns 0 ; @Error = 1 - Failed to get RSS Feed ; Author(s): Frostfel ; ============================================================================ Func _RSSGetInfo($RSS, $RSS_InfoS, $RSS_InfoE, $RSS_Info_Start = 0) $RSSFile = _INetGetSource($RSS) If @Error Then SetError(1) Return -1 EndIf Dim $InfoSearchS = 1 Dim $Info[1000] Dim $InfoNumA $InfoNum = $RSS_Info_Start While $InfoSearchS <> 6 $InfoNum += 1 $InfoNumA += 1 $InfoSearchS = StringInStr($RSSFile, $RSS_InfoS, 0, $InfoNum) $InfoSearchE = StringInStr($RSSFile, $RSS_InfoE, 0, $InfoNum) $InfoSearchS += 6 $InfoSS = StringTrimLeft($RSSFile, $InfoSearchS) $InfoSearchE -= 1 $InfoSE_Len = StringLen(StringTrimLeft($RSSFile, $InfoSearchE)) $InfoSE = StringTrimRight($InfoSS, $InfoSE_Len) _ArrayInsert($Info, $InfoNumA, $InfoSE) WEnd Return $Info EndFunc #endregion ConsoleWrite(_INetGetSource('http://cina.ir/feed/')) $Test1 = _RSSGetInfo("http://cina.ir/feed/", "<title>", "</title>", 1) MsgBox(0, "Test", "Title 1: "&$Test1[1]&" Title 2: "&$Test1[2]&" Title 3: "&$Test1[3]&" Title 4: "&$Test1[4]&" Title 5: "&$Test1[5])

TnX Again .. I'm Using This Code Too , BuT Not Work .. ! _GUICtrlListView_SetBkImage($ListView1 , "RSAcc.jpg")

Dear andybiochem TnX For Your Reply ... No I Try Set The BackGround For ListView .. Because ListView Is On Top Layer ...

Hi To All First , Sorry For My English I'm A Real NewBie In AutoIT & Sure In Programming , But When I Saw AutoIT In A Forum I Loved IT & Decided To Write My First Script With It .. So I Searched And Read A Lot Of Post & Finally Write This Code For My Friends In PCSeven Forum That Needed This Prog .. MmMmm .. Result Isn't Bad But I've Some Question And I Want Know How Can I Optimize This Code .. 1- How Can I Set An Image As BackGround .. ?! " Whit GUICtrlSetImage (-1 , "RSAcc.jpg") I Can't" 2- How Can I Set An Icon For Status Section In LV .. ?! 3- With Dear Siao CustomDraw Code I Can't Change Text Color In Row That $oStatus = 0 Or $oStatus = 1 After Process .. I Would Greatly Appreciate Any Suggestion Anyone Might Improve This Code .. RapidShare Account Checker : #RequireAdmin #include <IE.au3> #include <Array.au3> #Include <string.au3> #Include <File.au3> #include <GUIConstantsEx.au3> #include <GuiStatusBar.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #Include <GuiListView.au3> #include <ClipBoard.au3> Opt("GUIOnEventMode", 1) ; Change to OnEvent mode Global $userNAME[1], $passWORD[1] , $oStatus , $oTraffic , $oEXPDate , $oMSG , $chkConn , $rsFile , $totACC , $started , $oIE , $l , $nImpFile = 0 , $regTest = 0 , $RegValue Global $nExpAcc = 0 , $nVldAcc = 0 #Region ### START Koda GUI section ### Form=C:\Users\Keyvan\Desktop\AutoIT\Koda\Koda 2008-10-03\Forms\Test01.kxf $RSACForm = GUICreate("PC7 RapidShare Account Checker", 867, 450, 192, 141) ;ListView "GUI" $ListView1 = GUICtrlCreateListView("Status|Login|PassWord|Traffic (MB)|Expire Date|Message", 0, 0, 945, 408, BitOR($LVS_REPORT,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS)) $n=GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 120) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 410) GUICtrlSetImage (-1 , "RSAcc.jpg") ;Menu "GUI" $FileMenu = GUICtrlCreateMenu("&File") $ImpoMenu = GUICtrlCreateMenuItem("Import Ctrl+I", $FileMenu) $ExpoMenu = GUICtrlCreateMenuItem("Export Ctrl+E", $FileMenu) GUICtrlSetState(-1, $GUI_DISABLE) $ExitMenu = GUICtrlCreateMenuItem("Exit Ctrl+X", $FileMenu) $ProcMenu = GUICtrlCreateMenu("&Process") $StartMenu = GUICtrlCreateMenuItem("Start Ctrl+S", $ProcMenu) GUICtrlSetState(-1, $GUI_DISABLE) $StopMenu = GUICtrlCreateMenuItem("Stop Ctrl+P", $ProcMenu) GUICtrlSetState(-1, $GUI_DISABLE) $CBMenu = GUICtrlCreateMenu("&ClipBoard") $ICBMenu = GUICtrlCreateMenuItem("Import From ClipBoard Ctrl+V", $CBMenu) $HelpMenu = GUICtrlCreateMenu("&Help") $AboutMenu = GUICtrlCreateMenuItem("About", $HelpMenu) ;StatuBar "GUI" Dim $StatusBar1_PartsWidth[4] = [120, 240, 360, 510] $StatusBar1 = _GUICtrlStatusBar_Create($RSACForm, $StatusBar1_PartsWidth, "", BitOR($WS_GROUP,$WS_BORDER)) _GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth) _GUICtrlStatusBar_SetText($StatusBar1, "Total Accounts : 0", 0) _GUICtrlStatusBar_SetText($StatusBar1, "Valid Accouns : 0", 1) _GUICtrlStatusBar_SetText($StatusBar1, "Expired Accounts : 0", 2) _GUICtrlStatusBar_SetText($StatusBar1, "Processing : 0/0", 3) _GUICtrlStatusBar_SetBkColor($StatusBar1, 0xA0A0A0) _GUICtrlStatusBar_SetMinHeight($StatusBar1, 20) ;HotKey "GUI" Dim $RSACForm_AccelTable[6][2] = [["^i", $ImpoMenu],["^e", $ExpoMenu],["^x", $ExitMenu],["^s", $StartMenu],["^p", $StopMenu],["^v", $ICBMenu]] GUISetAccelerators($RSACForm_AccelTable) #EndRegion ### END Koda GUI section ### $started = 0 GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") GUICtrlSetOnEvent($StartMenu, "StartButton") GUICtrlSetOnEvent($StopMenu, "StopButton") GUICtrlSetOnEvent($ExitMenu, "_Exit") GUICtrlSetOnEvent($ImpoMenu, "_GuIImport") GUICtrlSetOnEvent($ExpoMenu, "_Export") GUICtrlSetOnEvent($ICBMenu, "_ToClipBoard") GUICtrlSetOnEvent($AboutMenu, "") GUISetState(@SW_SHOW) While 1 Sleep(10) If $started Then _GuIStart() EndIf Wend Func _Exit() $started = 0 _IEQuit($oIE) If $regTest == 1 Then RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" , "1609" , "REG_DWORD" , $RegValue) EndIf Exit EndFunc Func StartButton() $started = 1 EndFunc Func StopButton() MsgBox(64, "Pc7 RS Account Checker", "stopping pgm") $started = 0 EndFunc Func _ImPortFile ($tAccounts) Dim $clnFile[1] , $userNAME[1] , $passWORD[1] $clnFile[0] = 0 For $x = 1 to $tAccounts[0] $aTmp1 = StringLen($tAccounts[$x]) $aTmp2 = StringInStr($tAccounts[$x] , ":" ) $aMinus1 = $aTmp1 - $aTmp2 $aCheck01 = StringStripWS(StringLower(StringTrimRight($tAccounts[$x] , $aMinus1+1)),8) $aTmp3 = StringInStr($tAccounts[$x] , "=" ) $aMinus2 = $aTmp1 - $aTmp3 $aCheck02 = StringStripWS(StringLower(StringTrimRight($tAccounts[$x] , $aMinus2 +1)),8) if $aCheck01 == "pass" Or $aCheck01 == "password" Or $aCheck01 == "login" Or $aCheck01 == "user" Or $aCheck01 == "username" Or $aCheck01 == "accountid" Or $aCheck02 == "pass" Or $aCheck02 == "password" Or $aCheck02 == "login" Or $aCheck02 == "user" Or $aCheck02 == "username" Or $aCheck02 == "accountid" Then _ArrayAdd($clnFile, StringStripWS($tAccounts[$x],8)) EndIf Next _ArrayAdd($clnFile,0) For $i = 1 To UBound($clnFile)-2 $j = $i + 1 $clnTmp1 = StringLen($clnFile[$i]) $clnTmp2 = StringInStr($clnFile[$i] , ":" ) $clnTmp3 = StringInStr($clnFile[$i] , "=" ) $clnMns1 = $clnTmp1 - $clnTmp2 $clnMns2 = $clnTmp1 - $clnTmp3 $clnChck01 = StringLower(StringTrimRight($clnFile[$i] , $clnMns1+1)) $clnChck02 = StringLower(StringTrimRight($clnFile[$i] , $clnMns2+1)) $nclnTmp1 = StringLen($clnFile[$j]) $nclnTmp2 = StringInStr($clnFile[$j] , ":" ) $nclnTmp3 = StringInStr($clnFile[$j] , "=" ) $nclnMns1 = $nclnTmp1 - $nclnTmp2 $nclnMns2 = $nclnTmp1 - $nclnTmp3 $nclnChck01 = StringLower(StringTrimRight($clnFile[$j] , $nclnMns1+1)) $nclnChck02 = StringLower(StringTrimRight($clnFile[$j] , $nclnMns2+1)) If $clnChck01 == "login" Or $clnChck01 == "user" Or $clnChck01 == "username" Or $clnChck01 == "accountid" Or $clnChck02 == "login" Or $clnChck02 == "user" Or $clnChck02 == "username" Or $clnChck02 == "accountid" Then If $nclnChck01 == "pass" Or $nclnChck01 == "password" Or $nclnChck02 == "pass" Or $nclnChck02 == "password" Then If StringLen($clnChck01) < StringLen($clnChck02) Then _ArrayAdd($userNAME, StringTrimLeft($clnFile[$i],StringLen($clnChck02)+1)) Else _ArrayAdd($userNAME, StringTrimLeft($clnFile[$i],StringLen($clnChck01)+1)) EndIf If StringLen($nclnChck01) < StringLen($nclnChck02) Then _ArrayAdd($passWORD, StringTrimLeft($clnFile[$j],StringLen($nclnChck02)+1)) Else _ArrayAdd($passWORD, StringTrimLeft($clnFile[$j],StringLen($nclnChck01)+1)) EndIf GUICtrlSetState($StartMenu, $GUI_ENABLE) EndIf EndIf Next _ArrayDelete($userNAME, 0) _ArrayDelete($passWORD, 0) Dim $tAccounts[1] $nImpFile = $nImpFile + 1 EndFunc Func _ISConnected() $handle_wininet = DllOpen('WinInet.dll') $ret = DllCall($handle_wininet, "int", "InternetGetConnectedState", "int*", 0, "int", 0) If $ret[0] Then ;check to see if Google is online If Ping('www.rapidshare.com') Then $chkConn = 1 Else $chkConn = 0 EndIf Else $sX = "No Internet" EndIf ;MsgBox(0,"",$chkConn) DllClose($handle_wininet) EndFunc Func _RSAChecker ($userNAME,$passWORD) _IENavigate ($oIE, "http://ssl.rapidshare.com/cgi-bin/premiumzone.cgi") ;Get LogIn Form $oForm = _IEFormGetCollection ($oIE, 0) $oLogIn = _IEFormElementGetCollection ($oForm,1) $oForm2 = _IEFormGetCollection ($oIE, 0) $oPassW = _IEFormElementGetCollection ($oForm2, 2) ;InPut UserName&PassWord _IEFormElementSetValue($oLogIn, $userNAME) _IEFormElementSetValue($oPassW, $passWORD) _IEFormSubmit($oForm) _IELoadWait($oIE) ;Status Checker $oParas = _IETagNameGetCollection ($oIE, "p" , 0) If $oParas.innerText == "Your Premium Account has not been found." Then $oMSG = $oParas.innerText $oStatus = 0 $oEXPDate = "" $oTraffic = "" $nExpAcc = $nExpAcc + 1 ElseIf $oParas.innerText == "The Account has been found, but the password is incorrect." Then $oMSG = $oParas.innerText $oStatus = 0 $oEXPDate = "" $oTraffic = "" $nExpAcc = $nExpAcc + 1 Else $oMSG = $oParas.innerText $oStatus = 1 $oTable = _IETableGetCollection ($oIE, 3) $aTableData = _IETableWriteToArray ($oTable) ;$oEXPTitle = $aTableData[2][0] $oEXPDate = $aTableData[3][0] ;MsgBox(0,$oEXPTitle,$oEXPDate) ;$oTRFTitle = $aTableData[4][0] $oTraffic = $aTableData[5][0] ;MsgBox(0,$oTRFTitle,$oTraffic) $rsFile = _GUICtrlListView_GetItemTextArray($ListView1, $l) $nVldAcc = $nVldAcc + 1 $rsFile[2] = "Login : " & $rsFile[2] $rsFile[3] = "PassWord : " &$rsFile[3] $rsFile[4] = "Traffic : " & $oTraffic $rsFile[5] = "ExPire Date : " & $oEXPDate ;_ArrayDelete($rsFile, 1) _ArrayDelete($rsFile, 1) _ArrayDelete($rsFile, 5) Sleep(1) _IENavigate ($oIE, "http://rapidshare.com/cgi-bin/premium.cgi?logout=1") EndIf ;MsgBox(0, "RapidShare Account Status!" , $oMSG) Return $oStatus EndFunc Func _Export() If $nVldAcc > 0 Then $oFile = FileOpen ("RSAcc.txt" ,1) _FileWriteFromArray("RSAcc.txt", $rsFile & @CRLF, 1) FileClose($oFile) Else MsgBox(64,"PC7 RSAccountChecker" , "There Isn't Any Valid RS Account") EndIf EndFunc Func _ToListView() _GUICtrlListView_DeleteAllItems($ListView1) $totACC = UBound($userNAME) For $k = 0 To $totACC -1 GUICtrlCreateListViewItem ("|" & $userNAME[$k]& "|" & $passWORD[$k] & "|" & "|" ,$ListView1 ) Next ;StatusBar Part 1 "Total Accounts" _GUICtrlStatusBar_SetText($StatusBar1, "Total Accounts :" & $totACC, 0) EndFunc Func _ToClipBoard() Dim $icbRecords = StringSplit(StringStripCR(ClipGet()), @LF) _ImPortFile ($icbRecords) _ToListView() EndFunc Func _GuIImport() Local $impRecords $tFile = FileOpenDialog("Open", @ScriptDir & "\", "Text (*.txt)", 1 + 4 ) If $tFile Then $nLines = _FileCountLines ($tFile) ;File's Content To Array If $nLines > 1 Then If Not _FileReadToArray($tFile, $impRecords) Then EndIf _ImPortFile ($impRecords) _ToListView() EndIf EndIf EndFunc Func _GuIStart() Dim $regTest = 0 _ISConnected() If $chkConn = 1 Then ; Check Internet Connection.. If RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" , "1609" ) <> 3 Then $RegValue = RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" , "1609") RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" , "1609" , "REG_DWORD" , 3) $regTest = 1 Endif $oIE = _IECreate ("about:blank",1,1) For $l = 0 To UBound($userNAME)-1 If $started Then GUICtrlSetState($StopMenu, $GUI_ENABLE) If StringLen($userNAME[$l]) > 2 Then _GUICtrlListView_ClickItem($ListView1, $l ,"left", False, 2) _GUICtrlStatusBar_SetText($StatusBar1, "Processing : " & $l+1 & "/" & $totACC, 3) ;StatusBar Part4 "Processing!" GUICtrlSetCursor ( $ListView1, 15 ) ;Change Cursor To Wait _RSAChecker ($userNAME[$l],$passWORD[$l]) _GUICtrlListView_SetItemText($ListView1,$l, $oStatus & "|" & $userNAME[$l]& "|" & $passWORD[$l] & "|" & $oTraffic & "|" & $oEXPDate & "|" & $oMSG , -1) Else $oMSG = "UserName Filed Is Empty" _GUICtrlListView_SetItemText($ListView1,$l, $oStatus & "|" & $userNAME[$l]& "|" & $passWORD[$l] & "|" & $oTraffic & "|" & $oEXPDate & "|" & $oMSG , -1) EndIf _GUICtrlStatusBar_SetText($StatusBar1, "Valid Accouns : " & $nVldAcc, 1) ;StatusBar Part2 "Valid Accounts" _GUICtrlStatusBar_SetText($StatusBar1, "Expired Accounts : " & $nExpAcc, 2) ;StatusBar Part3 "Expired Accounts" EndIf Next GUICtrlSetCursor ( $ListView1, 2 ) ;Change Cursor To Normal _IEQuit($oIE) Else ;Http Error ! MsgBox(16,"Warning","Http Error!") EndIf $started = 0 EndFunc