4gotn1

I misread OP, or just assumed when reading "USB" they were referring to a thumb drive =\ Apologies.

An example to extract any USB's label (name). #include <AutoItConstants.au3> #include <MsgBoxConstants.au3> Local $arDrives = DriveGetDrive("ALL"), $USB = Null For $i = 1 to $arDrives[0] If (DriveGetType($arDrives[$i], $DT_BUSTYPE) = "USB") Then $USB = DriveGetLabel($arDrives[$i]) MsgBox($MB_OK, "USB", "Drive: " & $arDrives[$i] & @CRLF & "Label: " & $USB) EndIf Next

There's no need to re-declare the variable inside the function, just re-initialize it Declaration Global $someVariable = "SomeData" (re)Initialization $someVariable = "SomeOtherData" If you are only twelve for real, keep it up not many kids your age take interest in jack shit these days. Here is a little stroke for your ego, search for my last post here (Hint: I've been lurking a LONG time lol)

#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <Date.au3> #include <Excel.au3> #include <ListViewConstants.au3> #include <Array.au3> #include <GuiListView.au3> Global $CurrentTime = @HOUR&":"&@MIN;&":"&@SEC Global $CurrentDate = @YEAR&"/"&@MON&"/"&@MDAY Global $ExcelSignOutArray[3] = [$CurrentDate, $CurrentTime, "Sign-Out"] Global $ExcelSignOutArrayWRemark[4] = [$CurrentDate, $CurrentTime, "Sign-Out", "System Auto Sign-Out"] Global $sFilePath = @ScriptDir & "\temp.xls" Create_Form1() Func Create_Form1() $Form1 = GUICreate("XXX", 485, 531, -1, -1) GUISetBkColor(0xFFFFFF) $Form1_Graphic1 = GUICtrlCreateGraphic(0, 0, 490, 161) GUICtrlSetBkColor(-1, 0x9BBB58) $Form1_Label1 = GUICtrlCreateLabel("XXX", 40, 40, 218, 52) GUICtrlSetFont(-1, 27, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFBF0) GUICtrlSetBkColor(-1, 0x9BBB58) $Form1_Label2 = GUICtrlCreateLabel("XXX", 40, 72, 268, 52) GUICtrlSetFont(-1, 27, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFBF0) GUICtrlSetBkColor(-1, 0x9BBB58) $Form1_Label3 = GUICtrlCreateLabel("XXX", 98, 200, 289, 33) GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif") $Form1_Label4 = GUICtrlCreateLabel("XXX", 64, 296, 151, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Form1_Label5 = GUICtrlCreateLabel("XXX", 64, 320, 154, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Form1_Label6 = GUICtrlCreateLabel("XXX", 64, 416, 160, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Form1_Label7 = GUICtrlCreateLabel("XXX", 64, 440, 106, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Form1_Button1 = GUICtrlCreateButton("Button1", 236, 292, 201, 45, $BS_BITMAP) $Form1_Button2 = GUICtrlCreateButton("Button2", 236, 416, 201, 45, $BS_BITMAP) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE $Form1_Result1 = MsgBox(52,"", "Are you sure you want to exit?") If $Form1_Result1 = 6 Then Exit Case $msg = $Form1_Button1 GUIDelete($Form1) Create_Form2() ExitLoop Case $msg = $Form1_Button2 GUIDelete($Form1) If ProcessExists("excel.exe") Then ProcessClose("excel.exe") Global $oExcel = _ExcelBookOpen($sFilePath,0) ExcelFindLastRow() Global $ConcatVal = "Sign-In" Global $aFound = _ExcelFindInRange($oExcel, $ConcatVal, "L1:L"&$iLastRow) ;Found the total number of row with $ConcatVal keyword Global $TotalSignIn = $aFound[0][0] $i = 1 While $i <= $TotalSignIn Global $SelectedRow = $aFound[$i][3] Global $AutoSignOutDateDiffData = _ExcelReadArray($oExcel, $SelectedRow, 1, 13, 0);The individual column data respective to $TotalSignIn $ConvertYear = StringMid ($AutoSignOutDateDiffData[7], 1, 4) $ConvertMonth = StringMid ($AutoSignOutDateDiffData[7], 5, 2) $ConvertDate = StringMid ($AutoSignOutDateDiffData[7], 7, 2) $CombineDate = $ConvertYear&"/"&$ConvertMonth&"/"&$ConvertDate $AutoSignOutDateDiff = _DateDiff("D", $CombineDate, _NowCalcDate()) If $AutoSignOutDateDiff >= 1 Then _ExcelWriteArray($oExcel, ($aFound[$i][3]), 10, $ExcelSignOutArrayWRemark, 0) EndIf $i = $i + 1 WEnd _ExcelBookClose($oExcel,1) Create_Form3() ExitLoop EndSelect WEnd EndFunc Func Create_Form3() $Form3 = GUICreate("X", 485, 531, -1, -1) GUISetBkColor(0xFFFFFF) $Form3_Graphic1 = GUICtrlCreateGraphic(0, 0, 490, 161) GUICtrlSetBkColor(-1, 0x9BBB58) $Form3_Label1 = GUICtrlCreateLabel("X", 40, 40, 218, 52) GUICtrlSetFont(-1, 27, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFBF0) GUICtrlSetBkColor(-1, 0x9BBB58) $Form3_Label2 = GUICtrlCreateLabel("X", 40, 72, 268, 52) GUICtrlSetFont(-1, 27, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFBF0) GUICtrlSetBkColor(-1, 0x9BBB58) Global $Form3_ListView1 = GUICtrlCreateListView("1|2|3|4|5", 0, 161, 485, 250, BitOR($GUI_SS_DEFAULT_LISTVIEW,$LVS_SINGLESEL,$LVS_NOSORTHEADER), $LVS_EX_FULLROWSELECT) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 35) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 90) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 100) $Form3_Button4 = GUICtrlCreateButton("Button4", 145, 420, 201, 45, $BS_BITMAP) $Form3_Button3 = GUICtrlCreateButton("Button3", 8, 496, 73, 30, $BS_BITMAP) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE $Form3__Result1 = MsgBox(52,"", "Are you sure you want to exit?") If $Form3__Result1 = 6 Then Exit Case $Form3_Button4 GUIDelete($Form3) Create_Form1() ExitLoop Case $Form3_Button3 GUIDelete($Form3) Create_Form1() ExitLoop EndSwitch WEnd EndFunc Func ExcelFindLastRow() $oExcel1 = ObjGet($sFilePath, "Excel.Application") $oSheet = $oExcel1.ActiveSheet Global $iLastRow = $oSheet.Cells.Find('*', $oSheet.Cells(1, 1), Default, Default, 1, 2).Row EndFunc Func _ExcelFindInRange($oExcel, $sFindWhat, $sRangeOrRowStart, $iColStart = 1, $iRowEnd = 1, $iColEnd = 1, $iDataType = 0, $iWholeOrPart = 2, $fMatchCase = False, $fMatchFormat = "") Local $iCount, $sA1, $sR1C1, $sFound, $Temp1, $Temp2, $sFirst If NOT IsObj($oExcel) Then Return SetError(1, 0, 0) If $iDataType <> 0 Then If $iDataType <> -4163 Or $iDataType <> -4123 Or $iDataType <> -4144 Then Return SetError(4, 0, 0) EndIf EndIf If $iWholeOrPart < 1 Or $iWholeOrPart > 2 Then Return SetError(5, 0, 0) If NOT StringRegExp($sRangeOrRowStart, "[A-Z,a-z]", 0) Then If $sRangeOrRowStart < 1 Then Return SetError(2, 0, 0) If $iColStart < 1 Then Return SetError(2, 1, 0) If $iRowEnd < $sRangeOrRowStart Then Return SetError(3, 0, 0) If $iColEnd < $iColStart Then Return SetError(3, 1, 0) $oExcel.Range($oExcel.Cells($sRangeOrRowStart, $iColStart), $oExcel.Cells($iRowEnd, $iColEnd)).Select Else $oExcel.Range($sRangeOrRowStart).Select EndIf If $iDataType = 0 Then If $fMatchFormat = "" Then $oFound = $oExcel.Selection.Find($sFindWhat, $oExcel.ActiveCell, Default, $iWholeOrPart, Default, Default, $fMatchCase, Default) Else $oFound = $oExcel.Selection.Find($sFindWhat, $oExcel.ActiveCell, Default, $iWholeOrPart, Default, Default, $fMatchCase, Default, $fMatchFormat) EndIf Else If $fMatchFormat = "" Then $oFound = $oExcel.Selection.Find($sFindWhat, $oExcel.ActiveCell, $iDataType, $iWholeOrPart, Default, Default, $fMatchCase, Default) Else $oFound = $oExcel.Selection.Find($sFindWhat, $oExcel.ActiveCell, $iDataType, $iWholeOrPart, Default, Default, $fMatchCase, Default, $fMatchFormat) EndIf EndIf If IsObj($oFound) Then $oFound.Activate Else Local $aFound[1][1] $aFound[0][0] = 0 Return $aFound EndIf While 1 If $iCount > 0 And $iCount < 2 Then $sFirst = $sA1 $Temp1 = $oExcel.ActiveCell.Address $Temp2 = $oExcel.ActiveCell.Address(True, True, $xlR1C1) If $Temp1 = $sFirst Then ExitLoop If $iCount > 0 Then $sA1 = $sA1 & "*" & $Temp1 $sR1C1 = $sR1C1 & "*" & $Temp2 Else $sA1 = $Temp1 $sR1C1 = $Temp2 EndIf $iCount += 1 $oExcel.Selection.FindNext($oExcel.ActiveCell).Activate WEnd Local $aFound[$iCount + 1][4] $sA1 = StringReplace($sA1, "$", "") Local $aA1 = StringSplit($sA1, "*") Local $aR1C1 = StringSplit($sR1C1, "*") $aFound[0][0] = $iCount For $xx = 1 To $iCount $aFound[$xx][0] = $aA1[$xx] $aFound[$xx][1] = $aR1C1[$xx] $Temp1 = StringRegExp($aR1C1[$xx], "[RZ]([^CS]*)[CS](.*)",3) $aFound[$xx][2] = Number($Temp1[1]) $aFound[$xx][3] = Number($Temp1[0]) Next Return $aFound _ExcelBookClose($oExcel, 1, 0) EndFunc Something like this should kill excel.exe when you hit "Button 2". You'll have to elaborate on the temp.xls however. -Cheers

yes game guard will block autoit and most if not all other macro programs... you will have to find a way to disable gameguard....

cjconstanine has a good idea, you could even go as far as just adding the new array field at time of character creation

YEs its very possible, but it will probably all be done "Visually" not behind the scenes ( I.E. program opens a browser window and manually inserts the information into the port forwarding part of your router )... It could very well be done by sending POST / GET information, but im not familiar with that

Well you'll want to look into the TCP functions, start by building a small server / client system and expand upon that

do you remove the port forwarding after you play the game or what? cause you should only have to forward it once ^^

I don't think you understand what port forwarding is If there is scripts designed to set up port forwarding most likely they are customised to the workstation and router/hub they connect to.... If you are unfamiliar with port forwarding take a look at this: http://en.wikipedia.org/wiki/Port_forwarding

dam my comp went dumb and dev beat me to it but here's what i did Dim $Mouse HotKeySet("{F5}", "_Terminate") While 1 $Mouse = MouseGetPos() TrayTip("", "X: "& $Mouse[0] & " Y: "& $Mouse[1], 0) ;or you could do ;ToolTip("X: "& $Mouse[0] &" Y: "& $Mouse[1], $Mouse[0] + 10, $Mouse[1] + 10) Sleep(20) WEnd Func _Terminate() Exit EndFunc ;==> _Terminate()

#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.1.14 (beta) Author: 4gotn1 Script Function: Tests if a number is even or odd. Returns 1 - If the number is even. Returns 2 - If the number is odd. #ce ---------------------------------------------------------------------------- Func _IsEven($eVal) Local $a = $eVal / 2 Select Case Round($a, 0) = $a Return 1 Case Round($a, 0) <> $a Return 0 EndSelect EndFunc #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.1.14 (beta) Author: 4gotn1 Script Function: Returns Pi of a circle #ce ---------------------------------------------------------------------------- Func _Pi($cRadius) $Sqrd = $cRadius * $cRadius Dim $vNum = ( 3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609 * $Sqrd ) Dim $rNum = Round( $vNum, 12 ) Return $rNum EndFunc #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.1.14 (beta) Author: 4gotn1 Script Function: Converts to _Celcius and to _Fahrenheit Usage: _Celcius(32) will convert to 0 degrees celcius _Fahrenheit(0) will convert to 32 degrees fahrenheit Returns: The converted temperature #ce ---------------------------------------------------------------------------- Func _Celcius($fTemp) Local $Decimal = 5 / 9 Local $cTemp = $Decimal * ($fTemp - 32) Local $tNum = Round($cTemp, 2) Return $tNum EndFunc Func _Fahrenheit($cTemp) Local $Decimal = 9 / 5 Local $fTemp = ($cTemp * $Decimal) + 32 Local $tNum = Round($fTemp, 2) Return $tNum EndFunc Here's a quick _IsEven() and _Pi() i made a while ago -edit- Got bored, added a Fahrenheit and Celcius conversion func(s) too

If StringInStr($oIE.LocationURL, "www.google.com") Then MsgBox(0, "Test", "Hurray! It Worked!") EndIf -edit- This is how to do the same thing, without #include <IE.au3>

hover over your tray icon when the program gets hung ( using the Opt("TrayIconDebug", 1) line ) that will give you the debugging message(s)

#include <GUIConstants.au3> $oIE = ObjCreate("Shell.Explorer.2") GUICreate ("24 Help", @DesktopWidth, @DesktopHeight, 0, 0, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj ( $oIE, 10, 40 , @DesktopHeight, @DesktopWidth) $GUI_Button_Back = GuiCtrlCreateButton ("Back", 5, 3, 100, 30) $GUI_Button_Forward = GuiCtrlCreateButton ("Forward", 105, 3, 100, 30) $GUI_Button_Home = GuiCtrlCreateButton ("Home", 205, 3, 100, 30) $GUI_Button_Stop = GuiCtrlCreateButton ("Stop", 305, 3, 100, 30) GUISetState () $oIE.navigate("www.google.nl") While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home $oIE.navigate("www.tweakers.net") Do Sleep(1) Until NOT $oIE.Busy ;or you could do Until $oIE.ReadyState = 4 ;) Case $msg = $GUI_Button_Back $oIE.GoBack Case $msg = $GUI_Button_Forward $oIE.GoForward Case $msg = $GUI_Button_Stop $oIE.Stop EndSelect Wend GUIDelete () Exit oÝ÷ Ú(Z½éuæ°y¶ë£®ë"®¶­jwH#¡¸ÞrÛ-¢Ê°jyÚ$jÙ²²«qç(uè^­è¬jX§Ú-ëh¦'.®

Its a Julmuri! thanx jul good to see u peeking back here at Autoit

Dim $CompName = @Computername If StringInStr($CompName, "Server") Then ;Skip file write Else ;FileWriteLine() EndIf

weird seems it doesn't work like i thought it did but anyways i've updated the link and made a "public" 4gotn1 folder

wow nice gafrost thanx i did not know about it lol i'll probably register here shortly and begin to use it hehe...

hmm thanx for pinting that out Stealth i'll work on that @IceKirby thanx glad to hear everyone seems to like it @TheGuy0000 yea its a pretty big file for autoit, BUT i have one JPG and two ICO files in the bin folder the actual script(s) file are only around 20K @ZeroCool sure here ya go http://www.sendspace.com/file/s7rsce [ZIPPED Version]

to make the tooltip disappear then return it to its original value elseif $MOB <> 0 AND $MBC < 1 then sleep(500) Tooltip("No Mob Found.",0,0) Sleep(1000) ;Or whatever you want ToolTip() EndIf

Thanks RazerM i was looking for that GUICtrSetResizing last night for gawd who knows how long >=[ i made a few minor changes (size of GUI initially when painted, and added a couple of GUIResizing's) but version three is now available check the first post xD

I added a bookmark list and a few other little things check first post for updated script -edit- btw im using it right now

thanx i have been using oleview to get the COM objects for IE , i remember reading about it here or in the helpfile but i can't find it again =( but here is the link for the software lol... http://www.microsoft.com/downloads/details...;DisplayLang=en

BrowseIt is a mini web browser designed by me using COM Obj(s). This program is NOT designed to replace your exisiting web browser, if anything its just a "Thumb drive friendly" version of IE (Internet explorer is the COM Obj(s) used in this program) Version history list is below... Source Code file(s) are included... Enjoi! v0.3 - Added resizing availability (Thanx RazorM | Stealth111) ------- Added splash screen ------- Added [OPTION] to have voice on/off v0.2 - Added bookmark list and retrieval ------- Added voice welcome v0.1 - Initial release Total # of downloads to date: 93 + (Current version downloads) http://www.autoitscript.com/fileman/index.php?act=list&op=get&target=4gotn1%2FBrowseIt.zip