Wie wärs wenn du mal den Code posten würdest?
Wir können nicht erraten was du meinst.
Es ist bestimmt kein großer Fehler aber mit der Frage "was ist falsch" kann ich nicht viel anfangen.
Beiträge von anno2008
-
-
Hi,
les dich ein, Stell fragen, dann bekommst du das mit viel Hilfe aus dem Forum auch selber hin.
Das ist echt nix schweres und programmiertechnisch sehr leicht umzusetzen.
Du bekommst zu 100% guten Support, wenn du weist wie etwas nicht geht, und meistens wird dir sogar schon mit fertigen Scripts geholfen.
Ich halte nicht viel von Jobbörse und so kram .Wenn du keine Lust hast 2 Tage deines Lebens zu opfern können wir ja mal drüber reden :D.
Aber AutoIt macht spass und ist sehr einfach, das bekommt jeder hin.
-
Hi,
aus der Hilfe:Spoiler anzeigen
[autoit]$file = FileOpen("test.txt", 1)
[/autoit] [autoit][/autoit] [autoit]; Check if file opened for writing OK
[/autoit] [autoit][/autoit] [autoit]
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIfFileWrite($file, "Line1")
[/autoit] [autoit][/autoit] [autoit]
FileWrite($file, "Still Line1" & @CRLF)
FileWrite($file, "Line2")FileClose($file)
[/autoit]Wenn du die Datei aber Benutzen willst um Werte zu Speichern, dann würde ich empfehlen eine INI zu benutzen, weil man die einfacher auslesen kann, durch die Vorgegebenen Funktionen. Schau einfach mal in die Hilfe, da findet man einiges
-
Warum Split-Archiv?
15Mb kann jeder Hochladen, wenn ihr wollt kann ich es auch als Premium User als TrafficShare Download hochladen, dann kann jeder es ohne Wartezeiten direkt laden.
Allerdings kann ich nicht sagen wie lange der Account noch existiert. -
Edit: Sry, verkuckt , klappt doch nicht.
-
Hi und willkommen im Forum
[ offen ] Hilfe Videos--> siehe Setup mit Neustart
-
Ich glaube er will mit den Cursortasten seine Markierung bewegen können. Außerdem soll glaub ich immer der Button oben drüber und untendrunter eine andere Farbe habe, aber weis nicht ob ich dass 100% genau verstanden hab
-
Hi,
Fehlermeldung, oder benennt er die Datei einfach nur nicht um?/Edit:
[autoit]
Das Problem hatte ich und die, die noch mitgemacht hatten, als es darum ging das Musikspiel zu scripten auch schon.Func _DLLstartup($DLLpath = '')
[/autoit][autoit][/autoit][autoit]
If $DLLpath = Default Or $DLLpath = '' Then $DLLpath = @ScriptDir & '\cddbcontrol.dll'
ShellExecuteWait('regsvr32', '/s /i ' & $DLLpath, @WindowsDir, 'open', @SW_HIDE)
EndFunc ;==>_DLLstartupFunc _DLLshutdown($DLLpath = '')
[/autoit]
If $DLLpath = Default Or $DLLpath = '' Then $DLLpath = @ScriptDir & '\cddbcontrol.dll'
ShellExecuteWait('regsvr32', ' /s /u ' & $DLLpath, @WindowsDir, 'open', @SW_HIDE)
EndFunc ;==>_DLLshutdownDie beiden Funtkionen sind falsch.
Registriere die DLL mal von Hand alsoStart --> Ausführen und dann
Regsvr32 "DLL_PATH\cddbcontrol.dll"/Edit2:
[autoit]
Ich hab jetzt mal ein bisschen rumprobiert und hoffe, dass es so jetzt geht.
Bevor du die DLL jetzt registrierst Tausche mal die 2 Funktionen mit denen aus:Func _DLLstartup($DLLpath = '')
[/autoit][autoit][/autoit][autoit]
If $DLLpath = Default Or $DLLpath = '' Then $DLLpath = @ScriptDir & '\cddbcontrol.dll'
RunWait('regsvr32 /s ' & '"' & $DLLpath & '"')
EndFunc ;==>_DLLstartupFunc _DLLshutdown($DLLpath = '')
[/autoit]
If $DLLpath = Default Or $DLLpath = '' Then $DLLpath = @ScriptDir & '\cddbcontrol.dll'
RunWait('regsvr32 /u /s ' & '"' & $DLLpath & '"')
EndFunc ;==>_DLLshutdownDann sollte es eigentlich funtkionieren
-
Hi,
kannste doch auch selber kleiner machen .
Ich hab zwar keine Ahnung wie groß du sie haben willst.Naja, war mal so frei und hab se auf 60 % geschrumpft.
-
Hi.
das sind ID3-Tags.
Die kannst du z.B. mit der UDF von Xenobiologist ändern./Edit: http://www.autoitscript.com/forum/index.php?s=&showtopic=54117&view=findpost&p=410030
-
Hi, probier mal:
Spoiler anzeigen
[autoit]TcpStartup()
[/autoit] [autoit][/autoit] [autoit]$blockingPort = 5900
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$ConnectedSocket = -1
$MainSocket = -1
$MainSocket = TcpListen(@IPAddress1, $blockingPort)
If $MainSocket = -1 Then Exit
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
[/autoit] [autoit][/autoit] [autoit]
TCPSend($ConnectedSocket,'Port '&$blockingPort&' is blocked.')While 1
[/autoit]
$RogueSocket = TCPAccept( $MainSocket)
If $RogueSocket > 0 Then
TCPSend( $RogueSocket, 'Port '&$blockingPort&' is blocked.' )
EndIf
$recv = TCPRecv($ConnectedSocket,1000)
If @error Then
;connection closed.
TCPCloseSocket($ConnectedSocket)
$ConnectedSocket = -1
$MainSocket = -1
EndIf
WEnd
WEnd -
Prozesse anhalten:
Spoiler anzeigen
[autoit]Func _ProcessSuspend($process)
[/autoit] [autoit][/autoit] [autoit]
$processid = ProcessExists($process)
If $processid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
$i_sucess = DllCall("ntdll.dll","int","NtSuspendProcess","int",$ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
SetError(1)
Return 0
Endif
Else
SetError(2)
Return 0
Endif
EndFuncFunc _ProcessResume($process)
[/autoit]
$processid = ProcessExists($process)
If $processid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
$i_sucess = DllCall("ntdll.dll","int","NtResumeProcess","int",$ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
SetError(1)
Return 0
Endif
Else
SetError(2)
Return 0
Endif
EndFunc -
Also
[autoit]
If = Operator = übersetzt wenn
Damit kann man Abfragen machen.
Man lässt den Computer etwas entscheiden
Du weist ja jetzt was eine Variable ist.$var = 1 ;der Variablen wird der Wert 1 zugeordnet
[/autoit]
If $var = 1 then Msgbox(0,"","Die Variable ist 1")In Worten
_________________________________________________________________________________
Wenn die Variable 1 ist dann Zeige eine Meldung.
_________________________________________________________________________________Das Beispiel ist unlogisch, das die Variable immer 1 ist. Also wirst du auch immer eine Meldung bekommen.
[autoit]
Allerdings ist das anders, wenn du eine Zahl eingeben lässt.$var = InputBox("Test", "Gib eine Zahl ein")
[/autoit][autoit][/autoit][autoit]If $var > 10 Then
[/autoit]
MsgBox(0,"","Größer als 10")
Else
MsgBox(0,"","Kleiner als 10")
EndIfJetzt wird die Zahl eingeben. die Variable $var ist immer die Zahl, die durch die InputBox eingegeben wird. Wenn ich in die Inputbox 10 eintippe ist die Variable 10 wenn ich 89 eintippe dann ist die Variable 89.
So, da Beispiel jetzt in Worten:_________________________________________________________________________________
Wenn die Variable größer als 10 ist dann
zeige eine Meldung, dass sie größer ist als 10
Ansonsten
zeige eine Meldugn, dass sie kleiner ist als 10
_________________________________________________________________________________Grün = If
Gelb = Then
Rot = ElseAlso verständlicher kann ich das glaub ich nicht mehr erklären. Du musst jetzt einfach ein bisschen rumprobieren.
Viel Spaß
-
Oh man, ich weis ned wie ichs noch erklären soll.
Eine Variable ist einfach nur ein Platzhalter für etwas anderes.
$var = 100
Das bedeutet. Dem Wort $var wird eine Zahl zugeordnet (das geht in AuotIt besonders einfach, weil man Integer/Float nicht extra deklarieren muss).
[autoit]
Das Wort $Var vertritt einfach nur die Zahl 100.
Wenn ich irgendwo $var einsetze, dann ist $var immer das, was ich ihm vorher zugewiesen habe.
[/autoit]
$var = 100
Msgbox(0,"",20* $var)Jetzt wird gerechnet:
20 * $var = 2000
Weil in dem Fall $var ja genau das selbe ist wie 100.
Also wird im Prinzip 20 * 100 gerechnet.Aber wenn du das schon nicht verstehst, das ist eigentlich das einfachste was es gibt.
-
Hi,
[autoit]
Variable = Speicher für Zahlen, Strings (Buchstabenreihenfolgen)
[/autoit]
$var = 10000000
Das bedeutet, dass wenn ich jetzt irgendwoe $var einsetze, dass dann 10000000 raus kommt.Anwendungsbeispiel:
[autoit]MsgBox(0,"",$var)
[/autoit]Du kannst damit auch rechnen:
[autoit]$var1 = 150
[/autoit]
$var2 = 200
$var3 = $var1 + $var2Na, welchen Wert hat $var3 jetzt? (ganze schwere Rechenaufgabe ) .
Hastes jetzt ein bisschen mehr kapiert?
-
Hi,
Wieviel muss es denn unterstützen?Also ich hab 2 dran.
Hab aber noch 2 bei meiner Schwester, ich kanns mit 4 probieren aber leider nicht mit mehr.
Aber warum sollte da ein Limit sein?
Du kannst ja auch so viele Tastaturen benutzen wie du willst. -
[autoit]
ShellExecute("iexplore.exe")
[/autoit] -
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GuiTab.au3>
#include <WindowsConstants.au3>$show = TrayCreateItem("Show")
[/autoit] [autoit][/autoit] [autoit]
$hide = TrayCreateItem("Hide")
TrayCreateItem("")
$exit = TrayCreateItem("Exit")
$oIE = ObjCreate("Shell.Explorer.2")
$oIE2 = ObjCreate("Shell.Explorer.2")
$lol = GUICreate("PaidAngel", 200, 150, 826,588, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)$start = GUICtrlCreateTab (5, 5, 190,140)
[/autoit]
GUICtrlCreateTabItem("Start")
$1 = GUICtrlCreateButton("Hammertausch",15, 35, 100)
$2 = GUICtrlCreateButton("Fix Besucher",15, 65, 100)
GUISetState()
$hammertauch = 0
$fixbesucher = 0
While 1
$msg = TrayGetMsg()
$msgg = GUIGetMsg()
Select
Case $msg = $show
Guisetstate(@SW_SHOW, $lol)
Case $msg = $hide
Guisetstate(@sw_hide, $lol)
Case $msg = $exit
Exit
Case $msgg = $GUI_EVENT_CLOSE
Exit
Case $msgg = $1
If $hammertauch = 0 Then
$tab1 = GUICtrlCreateTabItem("Hammertausch")
GUICtrlCreateObj($oIE, 10, 30, 180, 110)
$oIE.navigate ("http://www.hammertausch.net/frame.php?userid=3302")
$hammertauch = 1
Else
_GUICtrlTab_DeleteItem ($start, 1)
$oIE.navigate ("about:blank")
$hammertauch = 0
EndIf
Case $msgg = $2
If $fixbesucher = 0 Then
GUICtrlCreateTabItem("Fix Besucher")
GUICtrlCreateObj($oIE2, 10, 30, 180, 110)
$oIE2.navigate ("http://fixbesucher.de/view.php?user=User")
$fixbesucher = 1
Else
_GUICtrlTab_DeleteItem ($start, 1)
$oIE.navigate ("about:blank")
$hammertauch = 0
EndIf
EndSelect
WEnd -
Hi,
1) Nee, solch eine UDf gibt es nicht, PixelSearch geht nur auf dem Bildschrim, d.h. das Fenster muss aktiv sein.
2) Da liegt der Fehler: ContinueCase
Wenn du die rausmachst stürtzt dein Script nicht mehr ab, aber es sind immer noch kleinere Fehler drin, die du aber auch bestimmta lleine rasugriegst -
jetzt könnte man die html datei auch ohne rand machen zodass es wie ein Object aussieht
Und wie macht man das?
Hab noch ein bisschen was verändert. Man kann jetzt auch normale Youtube links angeben.
Spoiler anzeigen
[autoit]#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>HotKeySet("{ESC}", "_exit")
[/autoit] [autoit][/autoit] [autoit]_IEErrorHandlerRegister()
[/autoit] [autoit][/autoit] [autoit]
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("Film", 470, 450, Default, Default, $WS_POPUP)
$Input1 = GUICtrlCreateInput("", 16, 415, 435, 21)
GUISetBkColor(0xFFFFFF)
$GUIActiveX = GUICtrlCreateObj($oIE, 1, 1, 470, 400)
GUISetState(@SW_SHOW)_Navigate("http://de.youtube.com/watch?v=Sl8gK9B5qnY&feature=related")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
FileDelete(@TempDir & "Youtube.htm")
Exit
EndSwitch
If (WinActive("Film")) AND (_IsPressed("0D")) then
If GUICtrlRead($Input1) <> "" Then
_Navigate(GUICtrlRead($Input1))
GUICtrlSetData($Input1, "")
EndIf
EndIf
WEndFunc _Navigate($Url)
[/autoit] [autoit][/autoit] [autoit]
$text = _StringBetween(_INetGetSource($Url), "var embedUrl = '", "&hl=de&fs=1';")
If IsArray($text) Then $Url = $text[0]
FileDelete(@TempDir & "Youtube.htm")
FileWrite(@TempDir & "Youtube.htm", '<object width="425" height="349"><param name="movie" value="' & $Url & '&hl=de&fs=1&rel=0&color1=0x3a3a3a&color2=0x999999&border=1"></param><param name="allowFullScreen" value="true"></param><embed src="' & $Url & '&hl=de&fs=1&rel=0&color1=0x3a3a3a&color2=0x999999&border=1" type="application/x-shockwave-flash" allowfullscreen="true" width="425" height="349"></embed></object>')
_IENavigate($oIE, @TempDir & "Youtube.htm")
EndFuncFunc _exit()
[/autoit]
Exit
EndFuncBeenden Esc.
In das Input kommen Links, mit ENTER bestätigen.Grafisch total hässlich aber egal .
Das Standartvideo das im Moment ausgewählt ist ist bestimmt auch interessant :D. Irgendso eine GuteNacht geschcihte, naja, hab einfach irgendwas geholt.