Hallo!
Ok.. dann hängt das vlt damit zusammen das (wie schon gesagt) das zeugs bei mir flickert..
Funktioniert es denn?
Mfg Spider
Hallo!
Ok.. dann hängt das vlt damit zusammen das (wie schon gesagt) das zeugs bei mir flickert..
Funktioniert es denn?
Mfg Spider
Hallo!
Ok..
@peet/gun-food: bitte fixen: ComboBox [ Gelöst ] / [ Offen ] hinzufügen so das auch die normalen User ihr eigenen Beitrag auf[ Gelöst ] / [ Offen ] stellen können!
Mfg Spider
Hallo!
Das Problem ist das es davor noch ein kleines fenster kommt das auch ICQ(R) heißt... also so ändern:
[autoit]WinWaitActive("ICQ(R)","Mit diesem Installationsprogramm")
[/autoit]
Ausserdem ist das control nicht 26 sondern 27 das komplette script sieht dann so ca aus:
ToolTip("ICQ","ICQ incl. Sounds werden nun Installiert!", 1000,1)
Run("icq5_1_prosieben.exe")
WinWaitActive("ICQ(R)","Mit diesem Installationsprogramm")
ControlClick("ICQ(R)","",27)
Kann es leider nicht testen, da das programm bei mir spinnt.. Es flickert die ganze zeit..
Mfg Spider
Hallo!
@ey-jo: wenn du den beitrag auf gelöst einstellen willst bitte nicht einfach [gelöst] hinschreiben, sondern in der combobox die links neben dem titel ist [gelöst] auswählen
Mfg Spider
Hallo!
Übrigens.. das WindowsInfoTool findest du hier:
C:\Programme\AutoIt3\AU3Info.exe
Mfg Spider
Hallo!
Was habt ihr alle mit euerm sleep? :tier:
Dafür gibt es doch AdlibEnable...
Mfg Spider
Hallo und herzlich :willkommen:
Diese beiden probleme lassen sich mit einfachen cmd befehlen lösen!
einmal mit "format" und einmal mit "xcopy". Ansonsten hast du noch ein paar andere fehler gemacht! DriveGetDrive gibt ein array zurück!
Naja.. bevor ich dir das 5 stunden hier erkläre hab ichs dir einfach mal umgeschrieben! (und das hat auch ca 5 stunden gedeuert )
;alle Wechseldatenträger ermitteln
$var = DriveGetDrive("removable")
If Not @error Then
For $i = 1 To $var[0]
;Speichergröße der Datenträger ermitteln
$x = DriveSpaceTotal($var[$i])
;Liegt die Speichergröße zwischen 30 MB und 4 GB
;soll das Laufwerk gelöscht werden
If $x > 30 And $x < 4000 Then
MsgBox(0,"",$var[$i])
$pid = Run(@ComSpec & " /c " & 'format '&$var[$i]&' /q /x', "",@SW_HIDE, 1)
StdinWrite($pid, "Y" & @CRLF & "Y" & @CRLF & "N"& @CRLF)
While ProcessExists($pid)
Sleep(100)
WEnd
EndIf
Next
;Speichergröße der Datenträger ermitteln
For $i = 1 To $var[0]
$x = DriveSpaceTotal($var[$i])
If $x > 30 And $x < 4000 Then Run(@ComSpec & ' /c xcopy D:\Kopier_Programm '&$var[$i]&' /E /H /Y', '', @SW_HIDE)
Next
MsgBox(0, " Kopier Programm ", " Fertig ")
EndIf
So solte es nun gehen
Mfg Spider
Hallo!
Auch von mir ein herzliches :willkommen: Gut zu wissen das hier auch ein dev von autoit ist
Mfg Spider
Hallo!
Es ist eben weil du die neue beta verwendest^^ einfach die zeilen bei den der error kommt auskommentieren! Wobei das eigentlich nur eni error von SciTe sein kann da Holger ja nich dumm ist und If Not IsDeclared("bla") hingeschrieben hat
Also kannst du es getrost übereshen, oder auskomentieren
Mfg Spider
Hallo!
Ok, Dann setze den Flag bei send auf 1! Also so:
#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Vokabeln eingeben", 540, 441, 192, 125)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 537, 377)
GUICtrlSetData($Edit1, "")
$Button1 = GUICtrlCreateButton("Start", 224, 392, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
GUISetState(@SW_HIDE)
$Zeilen = GUICtrlRead($Edit1)
$Zeile = StringSplit($Zeilen, @LF)
Sleep(6000)
For $i = 1 To $Zeile[0]
$Vokabel = StringSplit($Zeile[$i], @TAB)
Send("^n")
Send($Vokabel[1],1);Hier die 1!
Send("{TAB}")
Send($Vokabel[2],1);Hier auch
Send("^s")
Next
GUISetState(@SW_Show)
Exit
EndSelect
WEnd
Mfg Spider
Hallo
"!" bei Send ist "ALT" (siehe hilfe!) wenn du ein ! haben willst dann musst du das so machen:Send("{!}")
Also wenn du Send("!{TAB}") starten willst macht er "Alt + Tab" und das ist bei windows halt in nächstes fenster..
So ist es dann korrekt:
Send("{!}{TAB}")
[/autoit]Mfg Spider
Hallo!
Es sollte bei <Weitere Optionen><Thema bearbeiten> sein..
Habs jetzt trozdem mal auf gelöst gestellt!
Mfg Spider
Hallo!
@huggy: wir sind alle stolz auf dich @WinKill Scritp:
[autoit]WinKill("")
[/autoit]das wars Natürlich im Keyboard Profiler noch die taste dem programm zuweisen..
Mfg Spider
Hallo!
:stolz_bin: - dein Moderator zu sein
Sieht gut aus! Erinnert mich ein bisschen an das hier:
ClipBoard
oder auch an diesen M$ zeugs von office.. nur das ich den office scheiß hasse^^ aber deins is gaaanz toll geworden! n' tolles tool!
Mfg Spider
Hallo!
Totalcmd: kann ich nur zustimmen, ich könnte nicht mehr ohne ihn leben!
ultraedit: sieht gut aus!
ButtonMaker: den kenn ich doch
Sniffer: WireShark ist gut, wer aber eine "komplettlösung" sucht der sollte Cain&Able mal probieren (natürlich auch mit Sniffer!)
Winamp: auch änlich wie bei totalcmder
Infranview: super programm!
flaster: eknn ich nich^^
Aber auf jedenfall schonmal danke für die vielen links!
Mfg Spider
Hallo und herzlich :willkommen:
Mit was für programmiersprachen programmierst du denn so? @e-mail: Das dürfen nur Admins/Mods =) aber ich glaub wenn du gunfood mal ganz lieb fragst per PM dann wird er nich nein sagen
Mfg Spider
Hallo!
Wenn er kein array zurückgibt dann gibt es die farbe nicht!
Umgehen kann man das so:
$a = PixelSearch( 0, 0, @DesktopWidth, @DesktopHeight, 0xFA978E)
If @error Then MsgBox(16,"","Die Farbe gibt es sowasvon garnicht wie einhörner aufm mars")
Mfg Spider
Edit: @Gangster: stimmt überhaupt^^
Hallo und herzlich :wilkommen:
Die wunderfunktion heißt SendKeyDownDelay,bzw Opt()
Habs dir mal umgebaut
While 1
[/autoit] [autoit][/autoit] [autoit]HotKeySet("^p", "Go")
WEnd
Func Go()
While 1
HotKeySet("^P", "Stop")
Sleep(500)
Send('{SPACE}')
Sleep(500)
Opt("SendKeyDownDelay",5000);Setzt DownDealay auf 5000 ms (1000 ms = 1 sekunde)
Send('A')
Opt("SendKeyDownDelay",5);Standart Wert wird wider reabielietiert
Sleep(500)
Send('{SPACE}')
Sleep(500)
Opt("SendKeyDownDelay",5000);Setzt DownDealay auf 5000 ms (1000 ms = 1 sekunde)
Send('D')
Opt("SendKeyDownDelay",5);Standart Wert wird wider reabielietiert
WEnd
EndFunc ;==>Go
;Stop
Func Stop()
Exit
EndFunc ;==>Stop
Mfg Spider
Hallo
Danke Ups^^ war dann wohl noch auf das deutsche wort Abbrechen fixiert *rotwerd* Danke das du mich darauf aufmerksam gemacht hast!
Mfg Spider
Hallo!
Vorab: die Idee ist nicht von mir sondern von Eusebio! Ich habe es in eine GUI geschrieben, und ein bisschen praktischer gemacht!
Den beitrag im englischen forum findet ihr hier
Und hier nun das skript:
;######################
;By GtaSpider & Eusebio
;######################
#include <GUIConstants.au3>
#include <inet.au3>
#Region ### START Koda GUI section ### Form=
GUICreate("You Tube", 223, 114, 193, 121, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$DwnInput = GUICtrlCreateInput("http://www.youtube.com/watch?v=R4kFmMD3M0A", 8, 24, 201, 21)
GUICtrlCreateLabel("You Tube Download Link:", 8, 8, 198, 15)
$start = GUICtrlCreateButton("&Start", 8, 48, 99, 25, 0)
$Progress = GUICtrlCreateProgress(8, 80, 202, 16)
$abb = GUICtrlCreateButton("A&bort", 112, 48, 99, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
GUICtrlSetState($start,$GUI_DISABLE)
$dwnlink = GUICtrlRead($DwnInput)
$sCode=_INetGetSource ($dwnlink)
$s_t=StringRegExp($sCode, "&t=(.*?)&", 3)
$s_v=stringmid($dwnlink,stringinstr($dwnlink,"v=")+2)
$save = FileSaveDialog("Save SWF","","Flash(*.swf)",-1,$s_v)
If StringRight($save,4) <> ".swf" Then $save&=".swf"
_Download("http://youtube.com/get_video?video_id=" & $s_v & "&t=" & $s_t[0],$save,$Progress)
GUIDelete()
MsgBox(0,"","Done!")
Exit
EndSwitch
WEnd
;By GtaSpider
Func _Download($site,$punkt,$prog=0)
$orisize = InetGetSize($site)
InetGet($site,$punkt,1,1)
If $prog = 0 Then ProgressOn("Download","")
Do
$msg = GUIGetMsg()
If $msg = $abb Then
If MsgBox(4,"","Abort?") = 6 Then Exit
EndIf
$size1 = FileGetSize($punkt)
$MBsize1 = FileGetSize($punkt)
$inetget = @InetGetBytesRead
$Prozent = (100 * $inetget ) / $orisize
$decimalplace = Round ($Prozent)
$decimalplaceMBsize1 = Round (@InetGetBytesRead / 1024)
If $prog = 0 Then
ProgressSet ($Prozent, $decimalplace & "% " & "(" & $decimalplaceMBsize1 & ") Kb has been Downloaded.")
Else
GUICtrlSetData($prog,$Prozent)
EndIf
Until @InetGetActive = 0
If $prog = 0 Then ProgressOff ()
Return $punkt
EndFunc
Mfg Spider