Beiträge von Freaky

Freaky

also wen ich mich an den hersteller wende wird er mich wegen meinem englisch nicht verstehn
also
ich will das man bei der UDF das hinschreiben muss

[autoit]

HotStringSet("Fenstername","Taste","Func")

[/autoit]

Fenstername = Das fenster wo der befehl nur funktioniert
Taste = Die taste/n die man drücken muss das es angeht / funktioniert
Func = der Func name

Freaky

kann mir jemand da helfen ?

Freaky

Hallo
ich habe hier eine UDF die ich gerne geänert haben würde
zuerst waren es 2 jetz ist es nur noch 1
und jetz will ich das man schreiben muss :

[autoit]

HotStringSet("Fenstername","Taste","Func")

[/autoit]

ich will das man die taste z.b. a drücken muss in aber nur in dem fenster

und am besten wäre noch das man kann / muss ein "/" vor der taste drücken

UDF

[autoit]

#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Global Const $WH_KEYBOARD_LL = 13
Global $LASTFUNC = ""
Dim $hHook

[/autoit] [autoit][/autoit] [autoit]

Dim $pStub_KeyProc = DllCallBackRegister("_KeyProc","lresult", "int;WPARAM;LPARAM")
Dim $hmod = DllCall("kernel32.dll","ptr","GetModuleHandle","ptr",0)
Dim $hHook = DllCall("user32.dll","ptr","SetWindowsHookEx","int", _
$WH_KEYBOARD_LL,"ptr",DLLCallBackGetPtr($pStub_KeyProc),"ptr",$hmod[0],"dword",0)
Dim $buffer = ""

[/autoit] [autoit][/autoit] [autoit]

Dim $triggers[1] = [""]
Dim $functions[1] = [""]

[/autoit] [autoit][/autoit] [autoit]

Func HotStringSet($sTrigger,$sFunction)
if $sTrigger = "" Then
SetError(1,0,0)
ElseIf $sFunction = "" Then
For $i = 1 to UBound($triggers)-1
If $sTrigger = $triggers[$i] Then
_ArrayDelete($triggers, $i)
_ArrayDelete($functions, $i)
Return 1
EndIf
Next
Else
_ArrayAdd($triggers,$sTrigger)
_ArrayAdd($functions,$sFunction)
Return 1
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func EvaluateKey($keycode)
If (($keycode > 64) And ($keycode < 91)) _
Or (($keycode > 47) And ($keycode < 58)) Then
$buffer &= Chr($keycode)
For $i = 1 to UBound($triggers)-1
If $buffer = $triggers[$i] Then
Call($functions[$i])
Return
EndIf
Next
ElseIf ($keycode > 159) And ($keycode < 164) Then
Return
Else
$buffer = ""
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _KeyProc($nCode, $wParam, $lParam)
Local $ret,$KEYHOOKSTRUCT
If $nCode < 0 Then
$ret = DllCall("user32.dll","long","CallNextHookEx","hwnd",$hHook[0], _
"int",$nCode,"ptr",$wParam,"ptr",$lParam)
Return $ret[0]
EndIf
If $wparam = 256 Then
$KEYHOOKSTRUCT = DllStructCreate("dword;dword;dword;dword;ptr",$lParam)
EvaluateKey(DllStructGetData($KEYHOOKSTRUCT,1))
EndIf
$ret = DllCall("user32.dll","long","CallNextHookEx","ptr",$hHook[0], _
"int",$nCode,"WPARAM",$wParam,"LPARAM",$lParam)
Return $ret[0]
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func OnAutoItExit()
DllCall("user32.dll","int","UnhookWindowsHookEx","ptr",$hHook[0])
DllCallBackFree($pStub_KeyProc)
EndFunc

[/autoit]

Freaky

ja jetz gehts aber ich will nicht das man oben die leiste sieht

Freaky

ja es öffnet sich die korea version von metin2

aber es ging als erstes dann habe ich es nochmal geöffnet und dann hat es so gespinnt

Freaky

es hilft mir trotzdem nicht -.-
ich brauche nur hilfe

Freaky

nein mein script heist console.exe
und es ist auch noch nicht fertig

ja ich sage doch das mein script dauerhaft was öffnet

Freaky

ich habe mal aus langeweile eine computer console gemacht und wie jeder probiert jeder sein script imer wieder und aufeinmal startet mein script eine exe dauerhaft obwohl der befhel nict eingegebn wurde

und sagt jetz nicht *das ist der reinste müll hör lieber auf zu scripten*

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet ("^!{s}","Show")
HotKeySet ("^!{h}","Hide")
HotKeySet ("^!{p}","Passwort")

[/autoit] [autoit][/autoit] [autoit]

$random = Random (0,99999999,1)
$Form1 = GUICreate($random, 347, 191, 230, 140, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE,$WS_Popup))
$input = GUICtrlCreateEdit("", 0, 0, 345, 81)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$List = GUICtrlCreateList("", 0, 80, 345, 110)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
GUICtrlSetData ($List,"Bitte das Passwort eingeben." & @CRLF)
While 1
WinActivate ($Form1)
$read = GUICtrlRead ($input)
If $read = "p" & $random Then
$test = WinSetTitle ($Form1,"","Computer Console")
GUICtrlSetData ($List,"")
GUICtrlSetData ($List,"Passwort richtig." & @CRLF)
GUICtrlSetData ($input,"")
GUICtrlSetData ($List,"Bitte Console aktiviren." & @CRLF)
While 1
$read = GUICtrlRead ($input)
If $read = "Hallo" Then
GUICtrlSetData ($List,"")
GUICtrlSetData ($List,"Hallo." & @CRLF)
GUICtrlSetData ($input,"")
While 1
$read = GUICtrlRead ($input)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

If $read = "Hallo" Then
GUICtrlSetData ($List,"Immer noch Hallo ^^." & @CRLF)
GUICtrlSetData ($input,"")
EndIf

If $read = "Delet" Then
GUICtrlSetData ($List,"")
GUICtrlSetData ($List,"Hallo.")
GUICtrlSetData ($input,"")
EndIf

If $read = "Musik" Then
GUICtrlSetData ($List,"Musik kommt." & @CRLF)
GUICtrlSetData ($input,"")
Run (@MyDocumentsDir & "\Eigene Musik\musik.m3u")
EndIf

If $read = "Metin2" Then
GUICtrlSetData ($List,"Welches Metin2 ?" & @CRLF)
GUICtrlSetData ($input,"")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

$read = GUICtrlRead ($input)

If $read = "Korea" Then
GUICtrlSetData ($List,"Metin2 Korea wird gestartet." & @CRLF)
GUICtrlSetData ($input,"")
ShellExecute ( "metin2.exe", "", "D:\Programme\Metin2453" )
ExitLoop
EndIf

If $read = "DE" Then
GUICtrlSetData ($List,"Metin2 DE wird gestartet." & @CRLF)
GUICtrlSetData ($input,"")
ShellExecute ( "metin2.exe", "", "D:\Programme\Metin2_Germany" )
ExitLoop
EndIf
WEnd
EndIf
WEnd
EndIf
WEnd
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Show ()
GUISetState (@SW_SHOW,$Form1)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Hide ()
GUISetState (@SW_HIDE,$Form1)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Passwort ()
$read = GUICtrlRead ($input)
GUICtrlSetData ($input,$read & $random)
EndFunc

[/autoit]

Freaky

es ist kein bot
und könnt ihr mir jetz helfen oder nicht wen nicht dan pls thread löschen

Freaky

ich scripte manchmal bots und nene fast jedes script bot also ist das normal bei mir und hir sind die bilder
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Freaky

es wird kein bot
ich will nur von 2 bildern die farbe haben die in bild 2 nicht ist woran ist den hir ein bot ?

Freaky

Also ich will 2 bilder vergleichen und die farbe rausfinden die in bild 2 nicht vorkommt die in bild 1 drinne ist

Bild 1 scanner (geht ohne probleme)

[autoit]

HotKeySet ("y","ende")
Sleep (5000)
ToolTip ("Start",0,0,"Script")
$zahl = 1
$x1 = 8
$x2 = 148
$y1 = 39
$y2 = 179
While 1
If $x1 = $y1 Then
$x2 += 1
$x1 = 8
EndIf
If $x2 = $y2+1 Then
MsgBox (0,"","Fertig")
Exit
EndIf
$suche = PixelGetColor ($x1,$x2)
IniWrite ("farben.ini","farben",$zahl,"0x"&Hex ($suche,6))
$zahl +=1
$x1 += 1
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func ende ()
Exit
EndFunc

[/autoit]

Bild 2 Scanner (hir kommt error)

[autoit]

HotKeySet ("y","ende")
Sleep (5000)
ToolTip ("Start",0,0,"Script")
$zahl = 1
$inizahl = 1

[/autoit] [autoit][/autoit] [autoit]

$inix1 = IniRead ("Script","X","X1",0)
$inix2 = IniRead ("Script","X","X2",0)
$iniy1 = IniRead ("Script","Y","Y1",0)
$iniy2 = IniRead ("Script","Y","Y2",0)

[/autoit] [autoit][/autoit] [autoit]

$x1 = $inix1
$x2 = $inix2
$y1 = $iniy1
$y2 = $iniy2
While 1
Sleep (1)
$inifarbe = IniRead ("farben.ini","farben",$inizahl,0)
If $x1 = $y1 Then
$x2 += 1
$x1 = $inix1
EndIf
If $x2 = $y2+1 Then
$x1 = $inix1
$x2 = $inix2
$y1 = $iniy1
$y2 = $iniy2
$zahl = 1
$inizahl = 1
EndIf
If $inifarbe = 0 Then
MsgBox (0,"",@error)
Exit
EndIf
$suche = PixelGetColor($x1, $x2)
If $suche <> $inifarbe Then
$inisektion = IniReadSection("farben2.ini", "farben")
For $i = 1 To UBound($inisektion)
If $inisektion[$i][1] <> $suche Then
IniWrite("farben2.ini", "farben", $zahl, "0x" & Hex($suche, 6))
EndIf
Next
EndIf
$inizahl += 1
$zahl += 1
$x1 += 1
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func ende ()
Exit
EndFunc

[/autoit]

besser gesagt es kommt kein error es schreibt nur keine farbe auf
warum und was ist flasch ?

Freaky

welche udf muss ich nehmen und wie soll ich sie einsetzen

Freaky

Hallo ich habe mal bei autoit.de mit Autoit Windows Info so rumgeguckt und bemerkt das es Instantce gibt.
1. Wie kann ich das in ein Controlklick einbauen wen es keine ID vorhanden ist ?
2. Was ist das eigentlich ?

PS: benutze ff

Freaky

ich brauche immer noch hilfe

Freaky

und wo finde ich diese js ?

Freaky

ich finde nichts wo der text drinne steht
in der html nicht und in der dcr auch nicht

Freaky

[Blockierte Grafik: http://img27.imageshack.us/img27/7049/bildleineht0.png]
das kommt wen ich die html per hand starte

und wen ich es mit dem script starte kommt
Die Navigation zu der Webseite wurde abgebrochen.

Freaky

ja die asp sagt mir auch nicht sehr viel

ASP

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Phosphor - Rasterwerks</TITLE>

<STYLE>
A:link {
COLOR: #CCCCCC; FONT-FAMILY: Tahoma,arial,verdana,Helvetica}
A:visited {
COLOR: #CCCCCC; FONT-FAMILY: Tahoma,arial,verdana,Helvetica}
A:active {
COLOR: #dddddd; FONT-FAMILY: Tahoma,arial,verdana,Helvetica}
A:hover {
COLOR: #ffffff; FONT-FAMILY: Tahoma,arial,verdana,Helvetica}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #999999;
}
body {
background-color: #000000;
}
.style6 {font-size: 4px}
.style7 {color: #000000}
</STYLE>

</HEAD>

<SCRIPT language="JavaScript"><!--

if (top.location != document.location) {
top.location.replace(document.location);
}

//if (window.opener) {
// window.opener.location.replace(document.location);
// window.close();
//}

function maximizeWin() {
if (window.screen) {
var aw = screen.availWidth;
var ah = screen.availHeight;
window.moveTo(0, 0);
window.resizeTo(aw, ah);
}
}

//if (window.opener) {
// maximizeWin();
//}

//--></SCRIPT>

<TR>
<TD width="100%" height="16"><p align="center"> Phosphor Beta 1 / See below for instructions / <a href="beta1_800x600.asp">No resize version</a> /
<a href="http://www.rasterwerks.com/game/phosphor/b1_news.htm">News (updated 2008.08.20)</a></p> </TD>
</TR>
</TBODY></TABLE>
</CENTER></DIV></TD></TR></TBODY></TABLE>

<table width="800" border="0">
<tr>
<td><p align="center"> </p>
<div align="center">
<table width="650" border="0" cellpadding="10" cellspacing="1">
<tr>
<td width="815" bgcolor="#333333"><p><strong>Description:</strong></p></td>
</tr>

<tr>
<td bgcolor="#222222"><p>Phosphor is a first-person shooter created with <a href="http://www.macromedia.com/software/director/" target="_blank">Macromedia Director</a> (links will open in new window). The <a href="http://www.macromedia.com/software/shockwaveplayer/" target="_blank">Shockwave Player</a> allows the game to run within a web browser on Windows and Mac OS computers. Both single player (with AI-controlled bots) and multiplayer (using peer-to-peer Internet or LAN connections) game modes are supported. Our goal is to create a gaming experience similar to classic FPS games like <a href="http://www.unrealtournament.com/utgoty/" target="_blank">Unreal Tournament</a> and <a href="http://www.idsoftware.com/games/quake/quake3-arena/" target="_blank">Quake 3</a>, but with the accessibility of a webgame. </p>
<p>This is the first public beta. Current development is focused on tuning bot AI and improving multiplayer performance. Future versions will include additional player models, game types, and many more maps. </p>

<p>Periodic updates will be available at this URL (there might even be a real website someday). In the meantime, we hope you enjoy the game. Feedback, inquiries? contact: nick (at) rasterwerks (dot) com</p></td>
</tr>
</table>
<br>
<br>
<table width="650" border="0" cellpadding="10" cellspacing="1">
<tr>
<td width="815" bgcolor="#333333"><p><strong>Links (opens in new window):</strong></p> </td>

</tr>
<tr>
<td bgcolor="#222222"><p><a href="b1_instructions.htm" target="_blank">Instructions</a> </p>
<p><a href="b1_multiplayer.htm" target="_blank">Setting Up Multiplayer Sessions</a></p>
<p><a href="b1_history.htm" target="_blank">Version History</a></p>
</td>
</tr>

</table>
</div>
<p align="center" class="style6 style7">Unreal Tournament 2004, Halo 2, Doom III, Quake IV, Quake Zero, Half-Life 2, Counter-Strike Source, FEAR PC, Battlefield 2, Ghost Recon, nVidia Geforce, Geforce 7800, ATI Radeon, Xbox 360, Playstation 3, Free Xbox 360, Free Playstation 3, Free Games, Free Online Games</p>
<div align="center">
<span class="style6">

<script type="text/javascript" src="http://s19.sitemeter.com/js/counter.js?site=s19rasterwerks">
</script>
</span>

</div>

</BODY></HTML>

Freaky

ja das habe ich grade auch gemerkt und wie mache ich das mit .dcr ?

Beiträge von Freaky

UDF ändern

UDF ändern

UDF ändern

Mein script spinnt

Mein script spinnt

Mein script spinnt

Mein script spinnt

Mein script spinnt

Unbenutze Farbe finden

Unbenutze Farbe finden

Unbenutze Farbe finden

Unbenutze Farbe finden

Instantce Problem

Instantce Problem

Flashgame in Autoit

Flashgame in Autoit

Flashgame in Autoit

Flashgame in Autoit

Flashgame in Autoit

Flashgame in Autoit