douh
was soll ich sagen vielen dank hast mir sehr geholfen
douh
was soll ich sagen vielen dank hast mir sehr geholfen
Hi Leute
ich bin am verzweifeln... bzw vielleicht auch einfach zu dumm
ich versuche mittels folgendem Script-Baustein ein Array zu befüllen.
Es soll eigentlich bei 0,0 anfangen - was überhaupt nicht klappt
Es soll sich von oben nach unten oder von links nach rechts aufbauen.
Bei mir kommt entweder ein Versatz von oben nach unten oder eine Treppe von oben nach unten raus, siehe Bild - falls man es nicht versteht
[Blockierte Grafik: http://i.imgur.com/yIqZ1Rq.png]
Die Daten in der Ini kann man an für sich vernachlässigen.
#include <array.au3>
func _read_DB()
global $stocks[4][4]
For $i = 1 to 4 Step +1
$read = filereadline("stocks.txt", $i)
$_symbol_read = IniRead("datenbank.ini", "Stocks", $read & "_Symbol", "")
$_strike_read = IniRead("datenbank.ini", "Stocks", $read & "_Strike", "")
$_praemie_read = IniRead("datenbank.ini", "Stocks", $read & "_Praemie", "")
$_strategie_read = IniRead("datenbank.ini", "Stocks", $read & "_Strategie", "")
_ArrayAdd($stocks, $_symbol_read, $i-1)
_ArrayAdd($stocks, $_strike_read, $i-1)
_ArrayAdd($stocks, $_praemie_read, $i-1)
_ArrayAdd($stocks, $_strategie_read, $i-1)
Next
_ArrayDisplay($stocks)
EndFunc ;==>_read_DB
Alles anzeigen
Vielleicht hat ja irgendjemand eine Idee was ich machen muss damit das Array wie folgt aufgebaut wird:
[Blockierte Grafik: http://i.imgur.com/OzUdfzp.png]
Entweder wie die blauen Pfeile oder wie die grünen wäre mein Ziel.
Also blau bei 0,0 soll DAI.DE stehen, 0,1 = 65, 0,2 = 22 und 0,3 = NK S-PUT. Selbe dann bei 1,0 - 1,3 mit DBK.DE
Grün das selbe nur von links nach rechts.
selber volltrottel!!!!
ansonsten nice prog
habs zwar noch net ausprobiert aber ich hatte ja die idee und wenn es klappt MUSS es gut sein.
Naja, sagen wir mal so, wer darauf angewiesen ist, in einem sehr simplen Computerspiel zu betrügen bzw. nicht in der Lage ist, virtuelles Pixel-"Vermögen" auf rechtmäßige Art und Weise zu erreichen, dem fehlt auch meist der "Skill" um ein simples Script so umzuschreiben (und per Suchfunktion erstmal zu finden ), daß es auf die eigenen Anforderungen passt.... Daher habe ich meistens kein Problem mit dezenten Hinweisen.
naja bei dem spiel geht es halt um schnelligkeit^^ un da manche nur nach den items gucken un die grabben un ich die monster kill hab ich meist keine chance beim grabben...
ja es handelt sich eh nur um ca max 50x50 kästchen die überprüft werden sollen
pick it^^
gibt es ne möglich keit pixel zu zählen? also wenn man der funktion die farbe und die koordinaten zu weißt das es dann ausgibt wie viele pixel mit der farbe vorhanden sind
is mir auch klar
tolles game^^
nur viel zu kurz
aber sag ma bekomm ich net noch en keks von dir
also ich habe folgendes problem. wenn ich eine seite mit inetget runterlade un dann als datei speichern lasse und diese datei öffnen lasse und in einen string abspeichern lasse funktioniert das was ich will
[autoit]#include <INet.au3>
#include <String.au3>
#include <array.au3>
$open = FileOpen("gersup.html", 0)
$read = FileRead($open)
$string = String($source)
[/autoit][autoit][/autoit][autoit]$s1 = _StringBetween($string,'<td> <a href="topic.php?t=','&f=149">')
[/autoit][autoit][/autoit][autoit]for $i = 0 to 17 step +1
$s2 = _StringBetween($string, 'href="topic.php?t='&$s1[$i]&'&f=149">', '</a>')
MsgBox(0,"",$s2[0])
Next
allerdings sobald ich stat
[autoit]$open = FileOpen("gersup.html", 0)
$read = FileRead($open)
$string = String($source)
[/autoit]einfach
[autoit]$source = _INetGetSource('http://forums.d2jsp.org/forum.php?f=149')
[/autoit][autoit][/autoit][autoit]$string = String($source)
[/autoit]kommt unten dieser error
$s2 = _StringBetween($string, 'href="topic.php?t='&$s1[$i]&'&f=149">', '</a>')
$s2 = _StringBetween($string, 'href="topic.php?t='&^ ERROR
kann mir vill jemand weiter helfen?
irwie check ich das nich ma klappts ma net -.-
geht ab
wie doch auf einmal?
nn
grippe is grippe
leute sterben au bei "normalen" grippen aber meistens die die asthma un so was ham
da ich kein asthma oder sowas habe brauch ich mich au nich impfen werde die sowieso überleben
hier möchte ich euch mein neustes autoit programm vorstellen. es ist dafür gedacht downloads zu sortieren. verbesserungsvorschläge und feedbacks sind willkommen!
die gui um die settings einzustellen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
$dlpfad = IniRead("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
$moviedls = IniRead("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
$bilderdls = IniRead("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
$musikdls = IniRead("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
$zeit = IniRead("dph's_dls_settings.ini", "Settings", "Sortertime", "")
$format1 = IniRead("dph's_dls_settings.ini", "Settings", "vidformarte", "")
$format2 = IniRead("dph's_dls_settings.ini", "Settings", "bilderformate", "")
$format3 = IniRead("dph's_dls_settings.ini", "Settings", "musikformate", "")
$autostart = IniRead("dph's_dls_settings.ini", "Settings", "Autostart", "")
checkini()
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=D:\Scripts\koda_1.7.2.0\Forms\dls.kxf
$Form1 = GUICreate("Downloadsorter", 501, 242, 190, 120)
$setdlpfad = GUICtrlCreateButton("Downloadverzeichnis Wählen", 16, 8, 185, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Videodateien.", 16, 56, 198, 17)
$setpfadmovie = GUICtrlCreateButton("Setpfad", 216, 56, 49, 17, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Grafikdateien.", 16, 80, 199, 17)
$setpfadbilder = GUICtrlCreateButton("Setpfad", 216, 80, 49, 17, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Musikdateien.", 16, 104, 199, 17)
$setpfadmusik = GUICtrlCreateButton("Setpfad", 216, 104, 49, 17, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Autostart", 24, 144, 89, 41)
$Group2 = GUICtrlCreateGroup("Autostart", 40, 280, 105, 89)
If $autostart = 1 Then
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("ja", 32, 160, 41, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Else
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("ja", 32, 160, 41, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndIf
$vidformate = GUICtrlCreateInput($format1, 280, 56, 209, 21)
$bilderformate = GUICtrlCreateInput($format2, 280, 80, 209, 21)
$musikformate = GUICtrlCreateInput($format3, 280, 104, 209, 21)
$inputmin = GUICtrlCreateInput("30", 144, 144, 49, 21)
$Label6 = GUICtrlCreateLabel("Wähle nach wie vielen Minuten die Dateien wieder aus dem " & @CRLF & "Download Ordner verschoben werden sollen.", 208, 144, 549, 37)
$Fertig = GUICtrlCreateButton("Fertig", 272, 176, 97, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $setdlpfad
$dlpfad = FileSelectFolder("Wähle den Ordner in dem deine Downloads gespeichert werden", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Downloadpfad", $dlpfad)
Case $setpfadmovie
$movpfad = FileSelectFolder("Wähle den Ordner wo deine Videos gespeichert werden sollen", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Moviedlspfad", $movpfad)
Case $setpfadbilder
$bildpfad = FileSelectFolder("Wähle den Ordner wo deine Grafiken gespeichert werden sollen", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", $bildpfad)
Case $setpfadmusik
$musikpfad = FileSelectFolder("Wähle den Ordner wo deine Musikdateien gespeichert werden sollen", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Musikdlspfad", $musikpfad)
Case $Fertig
_auto()
WinSetState("Downloadsorter", "", @SW_HIDE)
$formatvid = GUICtrlRead($vidformate)
$formatbild = GUICtrlRead($bilderformate)
$formatmusik = GUICtrlRead($musikformate)
$sorttime = GUICtrlRead($inputmin)
IniWrite("dph's_dls_settings.ini", "Settings", "Sortertime", $sorttime)
IniWrite("dph's_dls_settings.ini", "Settings", "vidformarte", $formatvid)
IniWrite("dph's_dls_settings.ini", "Settings", "bilderformarte", $formatbild)
IniWrite("dph's_dls_settings.ini", "Settings", "musikformarte", $formatmusik)
If ProcessExists("dph's_dls.exe") Then
ProcessClose("dph's_dls.exe")
EndIf
ShellExecute("dph's_dls.exe")
Exit
EndSwitch
WEnd
Func checkini()
If Not FileExists(@ScriptDir & "\dph's_dls_settings.ini") Then
IniWrite("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
IniWrite("dph's_dls_settings.ini", "Settings", "Sortertime", "")
IniWrite("dph's_dls_settings.ini", "Settings", "vidformarte", "")
IniWrite("dph's_dls_settings.ini", "Settings", "bilderformarte", "")
IniWrite("dph's_dls_settings.ini", "Settings", "musikformarte", "")
MsgBox(0, "", "Created dph's_dls_settings.ini")
EndIf
EndFunc ;==>checkini
Func _auto()
$auto = GUICtrlRead($Checkbox1)
If $auto = 1 Then
IniWrite("dph's_dls_settings.ini", "Settings", "Autostart", $auto)
Else
IniWrite("dph's_dls_settings.ini", "Settings", "Autostart", "0")
EndIf
If IniRead("dph's_dls_settings.ini", "Settings", "Autostart", $auto) = 1 Then
FileCreateShortcut(@ScriptDir & "\dph's_dls.exe", "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\dph's_dls.exe")
MsgBox(0, "Autostart", "dph's_dls wird jetzt bei jedem Systemstart mitgestartet.")
Else
FileDelete("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\dph's_dls.exe.lnk")
MsgBox(0, "Autostart", "dph's_dls wird nicht beim Systemstart mitgestartet.")
EndIf
EndFunc ;==>_auto
; Copyright by dph
; special thanks to tobN
die hauptfunktion
#NoTrayIcon
#include <array.au3>
$dlpfad = IniRead("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
$moviedls = IniRead("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
$bilderdls = IniRead("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
$musikdls = IniRead("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
$zeit = IniRead("dph's_dls_settings.ini", "Settings", "Sortertime", "")
$format1 = IniRead("dph's_dls_settings.ini", "Settings", "vidformate", "")
$format2 = IniRead("dph's_dls_settings.ini", "Settings", "bilderformate", "")
$format3 = IniRead("dph's_dls_settings.ini", "Settings", "musikformate", "")
checkpfads()
While 1
main()
WEnd
Func _filemove($format1, $dlpfad, $moviedls)
$types = StringSplit($format1, ',')
For $i = 1 To $types[0] Step +1
FileMove($dlpfad & "\*." & $types[$i], $moviedls)
Next
EndFunc ;==>_filemove
Func main()
_filemove($format1, $dlpfad, $moviedls)
_filemove($format2, $dlpfad, $bilderdls)
_filemove($format3, $dlpfad, $musikdls)
Sleep($zeit * 1000 * 60)
EndFunc ;==>main
Func checkpfads()
If $dlpfad = "" Then
MsgBox(0, "", "Downloadpfad setzen")
Exit
ElseIf $moviedls = "" Then
MsgBox(0, "", "Moviesorter Verzeichnis setzen")
Exit
ElseIf $bilderdls = "" Then
MsgBox(0, "", "Bildersorter Verzeichnis setzen")
Exit
ElseIf $musikdls = "" Then
MsgBox(0, "", "Musiksorter Verzeichnis setzen")
Exit
EndIf
EndFunc ;==>checkpfads
; Copyright by dph
; special thanks to tobN
ein special thanks geht an tobN (tobicool oder so hier in dem board) meinem klassenkameraden der mir die filemove func geschrieben hat
thx m8
Func _filemove($format1, $dlpfad, $moviedls)
$types = StringSplit($format1, ',')
For $i = 1 To $types[0] Step +1
FileMove($dlpfad & "\*." & $types[$i], $moviedls)
Next
EndFunc ;==>_filemove
en freund hats mir gemacht^^
ja eig nix aber dachte alles in einer zeile müsste au gehen un hat au mehr style
FileMove($pfad & "\*.jpg", $andererpfad)
[/autoit]wie bekomme ich da hin das der alle jpgs bmps pngs in den anderenpfad verschiebt?
hab bissle hin un her probiert schaffs aber nich
war mir erst nicht so sicher ob ichs posten soll aber hab mich nun doch dafür entschieden.
backgrounder ist ein programm mit dem man fenster verstecken kann un wieder vervorholen. die idee dafür kam mir in der schule xD un klappt au eig ganz gut solange man nicht versucht vollbild spiele zu verstecken. desweiteren hab ich noch paar andere programme eingebaut wie ein qipspammer um freunde zu nerven, meinen timer, beeper ( den ich an meinem netbook sowie auch an meinem pc nicht hören kann ), windowsrechner(nur zum schnellstarten über das tray icon)
über feedbacks würde ich mich sehr freuen
un evtl kann mir ma jemand sagen wie ich das mit den hotkeys besser machen könnte also das man die irwie schlafen legen kann habs bis jetzt nur über ein neustart des programmes gelöst was anderes is mir nicht eingefallen
backgrounder
;backgrounder v0.9
#Include <Constants.au3>
#NoTrayIcon
#include <GUIConstants.au3>
$h1 = IniRead("back.ini","settings","key1","")
$h2 = IniRead("back.ini","settings","key2","")
HotKeySet($h1,"showtitle")
HotKeySet($h2,"hidetitle")
Opt("TrayMenuMode",1)
[/autoit] [autoit][/autoit] [autoit]$title = IniRead("back.ini","Wintitle","Title","")
$aboutitem = TrayCreateItem("Über")
$help = TrayCreateItem("Help")
$settings = TrayCreateItem("Hotkeysettings")
TrayCreateItem("")
$qipspamm0r = TrayCreateItem("QIP SPAMM0R")
$beep = TrayCreateItem("Let's Beep it")
$timer = TrayCreateItem("Ultimativtimer")
$calc = TrayCreateItem("Taschenrechner")
TrayCreateItem("")
$lock = TrayCreateItem("Lock window")
$show = TrayCreateItem("Show window")
$hide = TrayCreateItem("Hide window")
$unlock = TrayCreateItem("UnLock window")
$info = TrayCreateItem("Show locked windowname")
TrayCreateItem("")
$exititem = TrayCreateItem("Beenden")
TraySetState()
TraySetClick(16)
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $aboutitem
Msgbox(64,"Über:","Copyright by dph")
case $msg = $help
ShellExecute("helpfile.txt")
Case $msg = $show
showtitle()
Case $msg = $hide
hidetitle()
case $msg = $info
$title = IniRead("back.ini","Wintitle","Title","")
MsgBox(1, "Lockinfo", "The locked windowname is " & '"' & $title & '"' & ".")
case $msg = $unlock
showtitle()
inidelete("back.ini","WinTitle","Title")
Case $msg = $lock
WinWaitNotActive("AutoIt v3")
Sleep(100)
gettiltle()
Case $msg = $settings
ShellExecute("gui.exe")
sleep(2000)
$h1 = IniRead("back.ini","settings","key1","")
$h2 = IniRead("back.ini","settings","key2","")
Case $msg = $exititem
showtitle()
Exit
Case $msg = $qipspamm0r
ShellExecute("spamm0r.exe")
Case $msg = $beep
ShellExecute("beep.exe")
Case $msg = $timer
ShellExecute("ultimativtimer.exe")
Case $msg = $calc
ShellExecute("calc.exe")
EndSelect
WEnd
func gettiltle()
$wintitle = WinGetTitle("")
IniWrite("back.ini", "WinTitle","Title",$wintitle)
EndFunc
Func hidetitle()
$title = IniRead("back.ini","Wintitle","Title","")
WinSetState($title, "", @SW_HIDE)
EndFunc
func showtitle()
$title = IniRead("back.ini","Wintitle","Title","")
WinSetState($title, "", @SW_SHOW)
EndFunc
qip spamm0r ( klappt nur wenn ein qip fenster mim backgrounder gelockt wurde!)
#include <GUIConstants.au3>
#NoTrayIcon
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Settings", 283, 197, 193, 125)
GUISetBkColor(0xCBFADF)
$spamlabel = GUICtrlCreateLabel("Gebe den Text ein der gespammt werden soll", 8, 8, 217, 17)
$spamtext = GUICtrlCreateInput("", 8, 32, 153, 21)
$gebr = GUICtrlCreateLabel("Gebe die Zeit zwischen jeder Nachricht ein:", 8, 64, 210, 17)
$delay1 = GUICtrlCreateInput("", 8, 88, 97, 21)
$SPAM = GUICtrlCreateButton("SPAM", 176, 144, 73, 25, 0)
$spamcount = GUICtrlCreateLabel("Gebe an wie oft die Nachricht gesendet werden soll", 8, 120, 248, 17)
$spamintput = GUICtrlCreateInput("", 8, 144, 97, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $SPAM
WinSetState("Settings", "", @SW_HIDE)
$traget = IniRead("back.ini", "WinTitle","Title","")
$nr = 1
$text = GUICtrlRead($spamtext)
$spamdelay= GUICtrlRead($delay1)
$nrend = GUICtrlRead($spamintput)
WinSetState($traget, "", @SW_HIDE)
while 1
ControlSend($traget, "","[CLASS:TRichViewEdit; INSTANCE:1]",$text & $nr & "{ENTER}")
sleep($spamdelay*1000)
if $nr=$nrend Then
WinSetState($traget, "", @SW_SHOW)
EndIf
$nr = $nr+1
WEnd
EndSwitch
WEnd
timer
https://autoit.de/index.php?page=Thread&threadID=15496
beep
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{ESC}","terminate")
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Beep it", 211, 177, 193, 125)
GUISetBkColor(0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 8, 24, 41, 21)
$Input2 = GUICtrlCreateInput("", 8, 56, 41, 21)
$Input3 = GUICtrlCreateInput("", 8, 88, 41, 21)
$beepstartbutton = GUICtrlCreateButton("Let's Beep it", 40, 128, 97, 33, 0)
$Label1 = GUICtrlCreateLabel("Start der Frequenz", 56, 24, 91, 17)
$Label2 = GUICtrlCreateLabel("Steigung der Frequenz", 56, 56, 111, 17)
$Label3 = GUICtrlCreateLabel("Dauer einer Frequenz (in sec)", 56, 88, 143, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
$beepstart = GUICtrlRead($Input1)
$beepsteigung = GUICtrlRead($Input2)
$beepdauer = GUICtrlRead($Input3)
$beepdauer=$beepdauer*1000
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $beepstartbutton
WinSetState("Beep it", "", @SW_HIDE)
while 1
beep($beepstart,$beepdauer)
Traytip("Beep Frequenz: " &$beepstart,"Beenden Sie Beep it mit einem Druck auf der ESC Taste",$beepdauer)
$beepstart=$beepstart+$beepsteigung
WEnd
EndSwitch
WEnd
func terminate()
exit
EndFunc
cool mit 7z is en bissle mehr als ein halbes mb kleiner
jo habs nomma thx
xD mim bot schaff ich 192k punkte ohne
~57k
[autoit]guictrlsetdata (-1, 0x000000)
$farbe3 = Guictrlcreatebutton ("", 88, 224, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
guictrlsetdata ($farbe3, 0xFFFF00)
$farbe4 = Guictrlcreatebutton ("", 232, 224, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
guictrlsetdata ($farbe4, 0x0080000)
wieso gehten das nich? is dohc eig so richtig? hab au mit (-1, farbcode) gemacht ging aber au net un au ohne das BitOr
habs nomma bissle besser gemacht ( meiner meinung nach)
- richtiges highscore system hinzugefügt
- bugs gefixed