Hallo
Guck dir das mal an, hab ich letztens u.a. für dich gemacht: [Tutorial] Download mit 2 Prozentangaben
Mfg Spider
Hallo
Guck dir das mal an, hab ich letztens u.a. für dich gemacht: [Tutorial] Download mit 2 Prozentangaben
Mfg Spider
Hallo
Jo, wenn man einmal mit der G15 schreibt/zockt will man nie mehr was anderes Sie ist sogar schneller als Notebook Tastaturen (die schnell sind weil sie halt flache tasten haben). Einzigstes problem: Die zwischenräume der G15 sind recht groß, so kann mehr/größerer Schmutz reinfallen. Aber sonst, eigentlich DIE perfekte Tastatur
</webungmach>
Mfg Spider
Hallo
Ok, wenn du meinst :comp1:
Ab Heute werde ich die Maus einfach etwas nach links schieben und mit dem Daumen die Minustaste bedienen, dann muss ich nicht mehr die Hand von der Maus wegnehmen
Mfg Spider
Hallo
Ich hab nur eineinziges mal die Bravo gelesen und das auch nur weil ich damals dachte das es ein Pornoheft wäre
Dr. Sommer sagt mir aber trotzdem was, so wurde ich früher genannt als ich mal mit einer Freundin über iein bezihungskrahm geredet hab als sie sich grade getrennt hat von ihrer Beziehung (falls man das damals (6. klasse) Beziehung nennen kann :P). Jetzt weiß ich endlich was das bedeutet^^
Mfg Spider
Hallo
Ich wusste doch das BugFix, The King Of Array, nicht wieder stehen kann
Baruse: Ich hab dir das bsp mal etwas Kommentiert, ich hoffe das hilft ebenfalls:
;Liest aus C:\Temp\myfile.ini alle werte von section2 aus.
$var = IniReadSection("C:\Temp\myfile.ini", "section2")
If @error Then ;Wenn es ein error gibt (z.B. die datei nicht existiert) dann gibt es eine Error Messagebox
MsgBox(4096, "", "Error occurred, probably no INI file.")
Else;Else, also ansonsten wenn es kein Error gibt...
For $i = 1 To $var[0][0];... Zähle von 1 zu $var[0][0] (Die anzahl der Werte in der Sektion)
MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1]);Und hier gibt er in einer MsgBox den Key ($var[$i][0]) und den dazugehörigen Wert ($var[$i][1]) aus.
Next
EndIf
Mfg Spider
Hallo
Ich hoffe mal nicht^^
@Ideales Alter zum heiraten. Interessant zu sehen wo die unterschiede da bei Männern/Frauen sind
Mfg Spider
Hallo
Hilfe hilft. Beispiel in der AutoIt3 Hilfe zu IniReadSection:
$var = IniReadSection("C:\Temp\myfile.ini", "section2")
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
For $i = 1 To $var[0][0]
MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1])
Next
EndIf
Mfg Spider
Hallo
So ein Flexkeyboard kostet ca 20€ ist aber hammer praktisch
BugFix : Jo, aber falls ich zufällig die Maus bediene (was ja manchmal vorkommt^^) bin ich ziemlich nah mit meiner Rechten
Hand am Minus zeichen
Mfg Spider
Hallo und herzlich :willkommen:
KODA findest du entweder in dem neusten SciTe (SciTe ist ein AutoIt Editor mit Syntax Hiligthing und vielen anderen Features) oder Hier.
Zum abspielen des Sounds brauchst du SoundPlay($sSounddatei). Da am besten nochmal in der AutoIt hilfe gucken, die du normalerweise hier findest: C:\Programme\AutoIt3\AutoIt.chm
Mfg Spider
Hallo
Ich werde in den nächsten Jahren mein Keyboard nicht mehr Säubern.
Grund: Habe es ca vor 2 Wochen gesäubert. Alle tasten raus, ein bisschen ab geschruppt, Dreck aus der Tastatur gefrimelt und zum Schluss alle Tasten wieder eingebaut. DENKSTE. Meine NUM-Minustaste fehlte :weinen:
Problem: Die NUM-Minustaste brauch man um bei SciTe schnell Zeilen auszukommentieren.
Lösung: Erstmal probiert mit einem Stift. Wurde aber zu umständlich. Bin dann einfach zum Media Markt gegangen, habe eine NUM-Minustaste von einer G11 gezockt und hab sie in meine G15 gepackt
Naja, das bleibt doch unter uns, oder?^^
Mfg Spider
Edit: Die Hard 4.0 (dt: Stirb Langsam 4.0) ist einfach hammer^^ die ersten drei fand ich nicht sooo gut, aber der 4te ist einfach genial geworden (alleine schon, weil es sehr viel mit hacken/Computer zutun hatte =)
Hallo
Jo, mahc ich noch, hab leider momentan keine zeit. Aber ca in ner Stunde..
Mfg Spider
Hallo
Habe mal ein kleines Tutorial geschrieben, wie man mehrere Dateien downloaden kann mit 2 Prozentangaben GUI.
Falls fragen sind, werde ich die gerne beantworten.
;Tutorial by GtaSpider
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit];Hier werden die Downloads als array deklariert. $FileToDownload[Wieviele downloads] = [Download1,Download2,...]
Global $FilesToDownload[3] = ["http://www.autoitscript.com/autoit3/files/beta/autoit/autoit-v3.2.9.4-beta-setup.exe","http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe","http://ftp-mozilla.netscape.com/pub/mozilla.org/firefox/releases/2.0.0.8/win32/de/Firefox%20Setup%202.0.0.8.exe"]
;Wieviele downloads es sind
Global $Downloads = UBound($FilesToDownload)
;Wo die daten hingeladen werden sollen
Global $DownloadDir = @ScriptDir
;Gui
GUICreate("Test", 276, 76, 193, 115)
GUISetBkColor(0)
$Progress1 = GUICtrlCreateProgress(8, 8, 262, 9,$PBS_SMOOTH)
$Progress2 = GUICtrlCreateProgress(8, 24, 262, 9,$PBS_SMOOTH)
$StatLab = GUICtrlCreateLabel("",8,59,262,15)
GUICtrlSetColor(-1,0xffffff)
$Button = GUICtrlCreateButton("Start", 8, 37, 262, 20, 0)
GUISetState()
[/autoit] [autoit][/autoit] [autoit];Mainwhile
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
If Not _Download() Then
;Wenn es bei _Download ein error gab (Abbrechen wurde gedrückt)
GUICtrlSetData($Progress1,0)
GUICtrlSetData($Progress2,0)
GUICtrlSetState($Button,$GUI_DISABLE)
GUICtrlSetData($Button,"Abgebrochen")
Sleep(1500)
GUICtrlSetData($Button,"Neustart")
GUICtrlSetState($Button,$GUI_ENABLE)
Else
;Wenn es kein error gab
GUICtrlSetData($Button,"Erfolgreich")
GUICtrlSetData($StatLab,"Komplett")
EndIf
EndSwitch
WEnd
;Funktionen
Func _Download()
Local $i,$iSize,$iBuf,$msg,$iProz,$iOldProz,$sFileName
GUICtrlSetData($Button,"Abbrechen (0%)"); Setze button
For $i = 0 To $Downloads - 1
$iSize = InetGetSize($FilesToDownload[$i]);Holt sich die größe des downloads
$sFileName = StringTrimLeft($FilesToDownload[$i],StringInStr($FilesToDownload[$i],"/",1,-1));Der Dateiname des downlaods
InetGet($FilesToDownload[$i],$DownloadDir&"\"&$sFileName,0,1);Datei wird gedownloadet
GUICtrlSetData($StatLab,"Download: "&$sFileName &" (0%)");Setze statuslabel
While @InetGetActive; Solange der Download aktiv ist
$msg = GUIGetMsg(); Falls Abbrechen gedrückt wird
If $msg = $Button Then Return InetGet("abort")-1 ; Return ((Returnwert von Inetget = 1) - 1) = 0
$iProz = Round(100*@InetGetBytesRead/$iSize);Gibt die Prozentzahl (gerundet) zurück
If $iProz <> $iOldProz Then;Wenn neue Prozentangaben <> alte Prozentangaben dann.. (Verhinder mögliches Flickern von Label/Button)
$iOldProz = $iProz;Setze alte Prozentangabe = neue Prozentangabe
GUICtrlSetData($Progress1,$iProz);Setze Progress 1 mit Prozentangabe des momentanen downlaods
GUICtrlSetData($Progress2,$iBuf+($iProz/$Downloads));Setze Progress 2 auf die Insgesamte Prozentanzahl
GUICtrlSetData($Button,"Abbrechen ("&Round($iBuf+($iProz/$Downloads))&"%)");Setze Abbrechenbutton
GUICtrlSetData($StatLab,"Download: "&$sFileName &" ("&$iProz&"%)");Setze Statuslabel mit Dateiname des downlaods und prozentangabe des downlaods
EndIf
Sleep(50) ;Damit Prozessorlast < 100%
WEnd
$iBuf += (100/$Downloads)
Next
Return 1
EndFunc
Screenshot:
[Blockierte Grafik: http://img-up.net/img/downloadFT34Sy.JPG]
Mfg Spider
Edit:
So, zum Tutorial hinzugefügt. Finden tut ihr es HIER.
Beta 3.2.9.4:
3.2.9.4 (25th October, 2007) (Beta)
- Fixed: ProcessExists() bei einem Serviceprozess unter win2k. (Thanks Firewzy)
- Fixed: Verhalten von $GUI_DEVBUTTON. (Thanks Saunders)
- Fixed: ProcessGetStats() empfängt ein IO Counter für win9x,winNT und Win2k. (Thanks monter)
- Fixed: ControlCommand(SelectString) ablauf des aufrufes. (Thanks Zedna)
- Fixed: GUISetStyle(), GUIGetStyle(), ProcessGetStats() können nicht Kompeliert werden. (Thanks Pascal 257, Jos)
- Fixed: Array kann nicht 2^24 Einträge haben..
- Fixed: Verhalten von DefPushButton. (Thanks Saunders)
- Fixed: GuiCreateMenu() auf Fenstern ohne Titel und Client-area. (Thanks Volly)
- Fixed: WinWaitActive() stürzt manchmal nach einem WinActive() ab.
Hallo und herzlich :willkommen: im Forum
Firefox wurde von der Firma "Mozilla" kreiert und AutoIt ist kein Spiel
Erklär mal genau was du willst bitte
Mfg Spider
Hallo
LOL. Sollte eigentlich Google fragen werden. Naja. Nobody is perfect.
Mfg Spider
Hallo
NEIN Das geht nicht kürzer.. würde es eine küzere Variante geben würde ich sie Posten.
Das mit dem Input ist einfach nur faulheit. Wir haben dir schon in der Shoutbox gesagt, such einfach mal in der Hilfe nach FileRead und GuiCtrlSEtData. Ich bin gerne bereit leuten zu helfen, die voher in der Hilfe geguckt haben und die Boarsuche benutzt haben, aber ich bin nich bereit Leuten zu helfen die einfach zu Faul sind zu Suchen und jetzt wollen das andere für sie suchen.
Ich halte das eigentlich für Selbstverständlich.
Mfg Spider
Hallo
Genau, würd ich auch sagen. Probier das mal aus:
; hotkey zum beenden von aol
HotKeySet("{f11}","kill")
; startet aol
run("C:\Programme\AOL 9.0a\aol.exe")
WinWait("AOL 9.0")
WinActivate("AOL 9.0")
send("{enter}")
; pausiert das script is f11 gedrückt wird
while 1
sleep(2000)
WEnd
;-------------------------Func
Func kill()
WinClose("AOL 9.0")
sleep(500)
WinWaitActive("AOL 9.0","Sie möchten sich abmelden?",3)
Sleep(500)
send("{enter}")
sleep(250)
WinClose("AOL 9.0")
WinWaitClose ( "AOL 9.0")
Exit
EndFunc
;-------------------------EndFunc
Mfg Spider
Hallo
Sleep. Ich hoffe bis zu 50 Millisekunden(0.05 Sekunden) später ist nicht schlimm^^
#include <GUIConstants.au3>
; Hotkeys
HotKeySet("{esc}","kill")
HotKeySet("{f9}","show")
HotKeySet("{f10}","hide")
; GUI
$gui1 = GUICreate("",200,55,-1,-1)
; Input
$box = GUICtrlCreateInput("",5,5,92,20)
$box2 = GUICtrlCreateInput("",5,30,190,20)
; Button
$b1 = GUICtrlCreateButton("OK",102,5,93,20)
GUISetState()
; Hauptschleife
While 1
$ziel = GUICtrlRead($box2)
$bla = GUICtrlRead($box)
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $b1
GUISetState(@sw_hide,$gui1)
while 1
if $bla = @hour & @min & @sec Then
If GUICtrlRead($box2) = "..." Then Shutdown(1)
If GUICtrlRead($box2) = "..." Then Shutdown(2)
If GUICtrlRead($box2) = "..." Then Run("C:\...")
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Shutdown(48)
If GUICtrlRead($box2) = "..." Then Exitloop
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Shutdown(0)
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run ("C:\")
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run("C:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
If GUICtrlRead($box2) = "..." Then Run("D:\")
sleep(1000)
Exit
EndIf
Sleep(50)
wend
EndSelect
Wend
Exit
;----------------------------Func
func kill()
Exit
EndFunc
func show()
GUISetState(@sw_show,$gui1)
EndFunc
func hide()
GUISetState(@sw_hide,$gui1)
EndFunc
;----------------------------EndFunc
Mfg spider
Hallo
Wenn du nur eine Dateiendung zur auswahl hast (z.B. FileSaveDialog("Titel","","txtfiles (*.txt")")) dann reicht einfach sowas:
[autoit]$FileSave = FileSaveDialog("Titel","","txtfiles (*.txt)")
If StringRight($FileSave,4) <> ".txt" Then $FileSave &= ".txt"
MsgBox(0,"",$FileSave)
Wenn du mehere zur auswahl hast (FileSaveDialog("Titel","","txtfile (*.*)|programfiles (*.exe)|.....")) dann musst du diese Funktion hier verwenden:
ConsoleWrite(_FileSaveDialog("TEST",@DesktopDir,"ALL (*.*)|Excutables (*.exe)"))
;===============================================================================
;
; Function Name: _PickIconDialog()
; Description: Displays a dialog box that allows the user to choose an icon embedded in a resource such as an executable or DLL file
;
; Parameter(s): $sPath - Initial path to file
; $iIndex - Initial icon to select in the dialog (0-based index)
; $hWnd - [optional] Handle to parent window
;
; Return Value(s): Success - Returns a 2-element array containing the selected path and the selected index
; Failure - Returns "" and sets @error
;
; Author(s): Ultima
;
Func _FileSaveDialog ($sTitle, $sInitDir, $sFilter = 'All (*.*)', $iOpt = 0, $sDefaultFile = "", $sDefaultExt = "", $mainGUI = 0)
Local $iFileLen = 65536 ; Max chars in returned string
; API flags prepare
Local $iFlag = BitOR (BitShift (BitAND ($iOpt, 2),-10), BitShift (BitAND ($iOpt,16), 3 ))
; Filter string to array convertion
Local $asFLines = StringSplit ( $sFilter, '|'), $asFilter [$asFLines [0] *2+1]
Local $i, $iStart, $iFinal, $suFilter = ''
$asFilter [0] = $asFLines [0] *2
For $i=1 To $asFLines [0]
$iStart = StringInStr ($asFLines [$i], '(', 0, 1)
$iFinal = StringInStr ($asFLines [$i], ')', 0,-1)
$asFilter [$i*2-1] = StringStripWS (StringLeft ($asFLines [$i], $iStart-1), 3)
$asFilter [$i*2] = StringStripWS (StringTrimRight (StringTrimLeft ($asFLines [$i], $iStart), StringLen ($asFLines [$i]) -$iFinal+1), 3)
$suFilter = $suFilter & 'char[' & StringLen ($asFilter [$i*2-1])+1 & '];char[' & StringLen ($asFilter [$i*2])+1 & '];'
Next
; Create API structures
Local $uOFN = DllStructCreate ('dword;int;int;ptr;ptr;dword;dword;ptr;dword' & _
';ptr;int;ptr;ptr;dword;short;short;ptr;ptr;ptr;ptr;ptr;dword;dword' )
Local $usTitle = DllStructCreate ('char[' & StringLen ($sTitle) +1 & ']')
Local $usInitDir= DllStructCreate ('char[' & StringLen ($sInitDir) +1 & ']')
Local $usFilter = DllStructCreate ($suFilter & 'char')
Local $usFile = DllStructCreate ('char[' & $iFileLen & ']')
Local $usExtn = DllStructCreate ('char[' & StringLen ($sDefaultExt) +1 & ']')
For $i=1 To $asFilter [0]
DllStructSetData ($usFilter, $i, $asFilter [$i])
Next
; Set Data of API structures
DllStructSetData ($usTitle, 1, $sTitle)
DllStructSetData ($usInitDir, 1, $sInitDir)
DllStructSetData ($usFile, 1, $sDefaultFile)
DllStructSetData ($usExtn, 1, $sDefaultExt)
DllStructSetData ($uOFN, 1, DllStructGetSize($uOFN))
DllStructSetData ($uOFN, 2, $mainGUI)
DllStructSetData ($uOFN, 4, DllStructGetPtr ($usFilter))
DllStructSetData ($uOFN, 7, 1)
DllStructSetData ($uOFN, 8, DllStructGetPtr ($usFile))
DllStructSetData ($uOFN, 9, $iFileLen)
DllStructSetData ($uOFN, 12, DllStructGetPtr ($usInitDir))
DllStructSetData ($uOFN, 13, DllStructGetPtr ($usTitle))
DllStructSetData ($uOFN, 14, $iFlag)
DllStructSetData ($uOFN, 17, DllStructGetPtr ($usExtn))
DllStructSetData ($uOFN, 23, BitShift (BitAND ($iOpt, 32), 5))
; Call API function
$ret = DllCall ('comdlg32.dll', 'int', 'GetSaveFileName', _
'ptr', DllStructGetPtr ($uOFN) )
If $ret [0] Then
Return DllStructGetData ($usFile, 1)
Else
SetError (1)
Return ""
EndIf
EndFunc
Mfg Spider