run("test.a1b") ?!?
Beiträge von azunai
-
-
hey
ich woll eben mal ein paar basics übersetzen,
jedocjh bekomme ich beim speichern immer
http://johannes.autoit.de/translation/show.php?id=2577
Code
Alles anzeigen###Keyword### False / True ###Description### Boolesche Werte für den Einsatz in logischen Ausdrücken. ###Syntax### $var = <b>False</b> $var = <b>True</b> ###Parameters### Nichts. ###Remarks### Diese Schlüßelwörter sollten nicht in Ausdrücken verwendet werden, da AutoIt diesen "Missbrauch" nicht erkennt und die Ergebnisse nicht vorhersehbar sein werden. ###Related### ###Example### @@IncludeExample@@
-
aber es wird nichts auf deinen desktop gemalt
irgendwie sinnlos dann
-
funzt leider nicht...
-
das programm heißt zb dependency walker
http://dependencywalker.com/ -
gabs nicht sowas wie controlfokus ?
-
http://www.autoitscript.com/forum/index.php?showtopic=32494&hl=xskin
ich glaub muss man aber up to date bringen wegen neuer au3 version
-
@ shoutbox
[autoit]for $i = 1 to $nutzer[0]
[/autoit]
msgbox(0,"a",$nutzer[$i])
next -
kannst auch fenster aufbauen lassen (also so powerpoint effekt mäßig wien schachbrett oder ähnliches
gibts sogar schon ne udf für
-
controlclick/send/command
-
???
bitte erklär das mal etwas genauer =)
-
ich find da zwar gerade nicht wo die dll zum dl steht, oder was sie machen soll xD
aber du kannst eigendlich jede dll mit autoit steuern...
nur irgendwie meine nich xD
-
poste des doch mal bitte übersichtlich... und nicht alles in 2 zeilen geklatscht
[autoit]
[/autoit][autoit][/autoit][autoit]
dim $nutzer[1],$passwords[1]
$input = Controlgettext("Shinoby´s gamesupporter", "", "[CLASS:WindowsForms10.RichEdit20W.app.0.378734a; INSTANCE:1]")sort()
[/autoit][autoit][/autoit][autoit]ControlClick("Shinoby´s gamesupporter", "", "[CLASS:Edit; INSTANCE:1]")
[/autoit][autoit][/autoit][autoit]for $i = 1 to $nutzer[0]
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
send($nutzer[$i]&" "&$Passwords[$i]&@crlf)
Nextfunc sort()
[/autoit][autoit][/autoit][autoit]
$string = StringReplace($input,@crlf," ")
$array = StringSplit($string," ")
msgbox(0,"a","insgesammt: "&$array[0]/2&" Nutzer") ; als check
global $nutzer[$array[0]/2+1] ; legt größe der array fest
global $passwords[$array[0]/2+1] ; legt größe der array fest
$nutzer[0] = $array[0]/2 ; setzt das element 0 auf die anzahl der einträge
$passwords[0] = $array[0]/2 ; setzt das element 0 auf die anzahl der einträge
$b = 0
for $i = 1 to $array[0] step +2
$b = $b + 1
$nutzer[$b] = $array[$i]
Next$b = 0
[/autoit]
for $i = 2 to $array[0] step +2
$b = $b + 1
$passwords[$b] = $array[$i]
Next
EndFunc -
kannst du doch o0
ich hab doch sogar daneben geschrieben das es nur fürs bsp asugegeben wird xD
[autoit][/autoit][autoit][/autoit][autoit]wenn du die nutzer senden möchtest, einfach
[/autoit][autoit][/autoit][autoit]for $i = 1 to $nutzer[0]
[/autoit][autoit][/autoit][autoit]
send("Benutzer Nr: "&$i&" "&$nutzer[$i]&@crlf)
next;oder zb
[/autoit][autoit][/autoit][autoit]for $i = 1 to $passwords[0]
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
send("Passwort Nr: "&$i&" "&$passwords[$i]&@crlf)
next;oder direkt:
[/autoit][autoit][/autoit][autoit]for $i = 1 to $passwords[0]
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
send("Benutzer Nr: "&$i&" "&$nutzer[$i]&@crlf)
send("Passwort Nr: "&$i&" "&$passwords[$i]&@crlf)
next;oder wenn du jetzt zb nur nutzer 5 mit seinem pw haben willst:
[/autoit][autoit][/autoit][autoit]send($Nutzer[5]&" "&$password[5])
[/autoit] -
sollte selbsterklärend sei ndenk ich
[autoit][/autoit][autoit][/autoit][autoit]#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include <WindowsConstants.au3>
#include <array.au3>
GuiCreate("MyGUI", 330, 362,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))$Edit_1 = GuiCtrlCreateEdit("Edit1", 30, 30, 260, 260)
[/autoit][autoit][/autoit][autoit]
$Button_2 = GuiCtrlCreateButton("start", 30, 310, 250, 30)GuiSetState()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button_2
sort()
;;;
EndSelect
WEndfunc sort()
[/autoit][autoit][/autoit][autoit]
$input = guictrlread($Edit_1)$string = StringReplace($input,@crlf," ")
[/autoit][autoit][/autoit][autoit]
$array = StringSplit($string," ")
msgbox(0,"a","insgesammt: "&$array[0]/2&" Nutzer") ; als check
global $nutzer[$array[0]/2+1] ; legt größe der array fest
global $passwords[$array[0]/2+1] ; legt größe der array fest
$nutzer[0] = $array[0]/2 ; setzt das element 0 auf die anzahl der einträge
$passwords[0] = $array[0]/2 ; setzt das element 0 auf die anzahl der einträge
$b = 0
for $i = 1 to $array[0] step +2
$b = $b + 1
$nutzer[$b] = $array[$i]
Next$b = 0
[/autoit][autoit][/autoit][autoit]
for $i = 2 to $array[0] step +2
$b = $b + 1
$passwords[$b] = $array[$i]
Next
_ArrayDisplay($nutzer) ; bsp ausgabe
_ArrayDisplay($passwords) ; bsp ausgabeEndFunc
[/autoit] -
hi
ich habe in delphi eine dll geschrieben:
Spoiler anzeigen
Code
Alles anzeigenlibrary write; uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; {$R *.res} function WriteText(TransText: string;Posx,Posy,fsize:integer):integer;stdcall; var MyHand: HWND; MyDc: HDC; MyCanvas: TCanvas; begin MyHand := GetDesktopWindow; MyDc := GetWindowDC(MyHand); MyCanvas := TCanvas.Create; MyCanvas.Handle := MyDC; BeginPath(MyCanvas.Handle); MyCanvas.Font.Color := clRed; MyCanvas.Font.Name := 'Arial'; MyCanvas.Font.Size := fsize; SetBkMode(MyCanvas.Handle,TRANSPARENT); EndPath(MyCanvas.Handle); MyCanvas.TextOut(posx, posy, TransText); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll WriteText := 1 end; exports WriteText; begin //writetext(123',100,100,130); end.
so weit ist ja alles schön und gut...
wenn ich die dll nun aber nutzen will:
[autoit]$dll = DllOpen("write.dll")
[/autoit]
DllCall($dll,"int","WriteText","Str","Hallo dude","int",100,"int",100,"int",130)bekomm ich nur die meldung :
blub hat ein problemfestgestellt und muss beendet werden... -
war 3 jahre lang alice/aol kunde,
naja läuft eigendlich alles glatt, allerdings (grund aus welchem ich gewechselt bin) blieb inet einfach mal so in der zeit vor meinem wechsel (1. juni 08) für 10 std weg, war dann 2 std da und wieder ein paar std weg ..
wenn man sich dann an den support wendet landet man nur in einer warteschleife von der man in die nächste schleife weitergeleitet wird...
nun bin ich bei unitymedia, läuft alles perfekt (TV/Tele/inet)
hehe inet 3play gekauft (dsl 6000)
kann aber mit 4.5 MB/s laden xD
nur der upp entspricht dsl 6000naja das sin meine erfahrungen
-
kurze anmerkung,
ihr wollt
Betriebssystem
Microsoft® Windows® Vista Ultimate
? -
dann erweiterst dus einfach o0
[autoit]_send("hallo",500)
[/autoit][autoit][/autoit][autoit]
;oder
_send("hallo;ich;bin;ein;test","100;200;300;400;500",0)
;oder
_send("hallo;ich;bin",100)Func _send($text = '', $time = 0,$option = 1)
[/autoit]
$string_Ar = stringsplit($text,";")
if $option = 1 then
for $i = 1 to $string_ar[0]
Send($string_ar[$i])
Sleep($time)
next
else
$time_Ar = stringsplit($time,";")
for $i = 1 to $string_ar[0]
$b = $i
if $time_ar[0] < $i then $b = $time_ar[0]
send($string_ar[$i])
sleep($time_ar[$b])
endif
next
EndFunc ;==>_sendsollte so gehn xD
-
@staub, der pc ist doch angeblich neu o0
so extrem verstaubt sollte er da nicht sein