Hallo
Wow geil ! Vorallem die Animationen! Wie siehts aus mit verschiedenen Schwierigkeitsleveln?
Grßu
Spider
Hallo
Wow geil ! Vorallem die Animationen! Wie siehts aus mit verschiedenen Schwierigkeitsleveln?
Grßu
Spider
Hallo
Kannste eine Test Flash-datei mal hochladen?
Gruß
Spider
Wenn ich im Visual Studio mit c# arbeite, geht mir die GUI wirklich leichter von der Hand ^^.
Guck dir mal KODA an. Einfach wenn du SciTe offen hast ALT+M drücken (oder unter Tools --> Koda)
Gruß
Spider
Und wo bin ich im top 6 Ranking?
Edit: Das war mehr ein Joke Wenn hier jeder in das Ranking will, wirds glaub ich ziemlich voll. Aber trotzdem danke fürs hinzufügen
Hi
Zu 1.:
#include <GUIConstants.au3>
#include <windowsconstants.au3>
Global $sBackground = @SystemDir & "\oobe\images\mslogo.jpg"
If @OSBuild > 6000 Then $sBackground = @SystemDir & "\oobe\background.bmp"
#region - GUI Create
Global $Topx = 300,$Topy = 400,$extMsg
Global $Plusx = 15, $Plusy = 70
Global $gui1 = GUICreate("Parent GUI", 300, 300, $Topx, $Topy)
GUISetFont(6)
GUICtrlCreatePic($sBackground, 0, 0, 300, 300)
GUISetState()
Global $gui2 = GUICreate("child", 200, 250, $Topx + 15,$Topy + 70, $WS_POPUP, BitOR(0x2000000, $WS_EX_LAYERED,$WS_EX_TOOLWINDOW),$gui1);$WS_EX_COMPOSITED = 0x2000000
GUICtrlCreateEdit("", 0, 0, 200, 250)
GUICtrlSetFont(-1,16)
GUICtrlSetBkColor(-1, 0xABCDEF)
GUICtrlSetColor(-1, 0xFFFFFF)
$text = FileRead(@ScriptFullPath)
GUICtrlSetData(-1, $text)
_API_SetLayeredWindowAttributes($gui2,0xABCDEF,255);set special colour fully transparent
GUISetState()
;~ winsetontop($gui2,'',1)
GUIRegisterMsg($WM_MOVE,"Follow")
#endregion
;~ WinSetTrans($gui1,"",120)
#region - GUI SelectLoop
While 1
$extMsg = GUIGetMsg(1)
$msg = $extMsg[0]
Switch $extMsg[1]
Case $gui1
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
[/autoit] [autoit][/autoit] [autoit]EndSwitch
WEnd
#endregion
;===============================================================================
;
; Function Name: _API_SetLayeredWindowAttributes
; Description:: Sets Layered Window Attributes:) See MSDN for more informaion
; Parameter(s):
; $hwnd - Handle of GUI to work on
; $i_transcolor - Transparent color
; $Transparency - Set Transparancy of GUI
; $isColorRef - If True, $i_transcolor is a COLORREF-Strucure, else an RGB-Color
; Requirement(s): Layered Windows
; Return Value(s): Success: 1
; Error: 0
; @error: 1 to 3 - Error from DllCall
; @error: 4 - Function did not succeed - use
; _WinAPI_GetLastErrorMessage or _WinAPI_GetLastError to get more information
; Author(s): Prog@ndy
;
;===============================================================================
;
Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, 0, 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_API_SetLayeredWindowAttributes
Func Follow($hWnd)
Local $wp = WinGetPos($gui1)
If $hWnd = $gui1 then WinMove($gui2,"",$wp[0] + $Plusx, $wp[1] + $Plusy)
EndFunc
[/autoit]Gruß
Spider
Nettes Spiel Läuft ganz leicht laggy. Meine Freundin sagt nur "Ich will nicht das du die armen Vögel abschießt" ;D
490 Punkte
Gruß
Spider
Hallo,
Ich bleib meistens auch zu hause, außer Freunde/Freundin schleift mich mit ins Kino. Ich kann auch gleich mal ein Bild von meinem Heimkino hochladen.
Gruß
Spider
Hallo,
Alles gute zum Geburtstag, FireFlyer. Nach fast 900 Posts, davon sehr vielen Supportbeiträgen, hast du dir das verdient
Feier schön!
Gruß
Spider
Hallo
Probiers mal mit ControlSetText. Es kann durch z.B. aktivertem Capslock sein, dass alles groß geschrieben wird...
Also ControlSend mt ControlSetText ersetzen
Gruß
Spider
Hallo
<tipp>Dir wird bestimmt schneller geholfen, wenn du ein Link zu der ImageSearch.au3 Postest</tipp>
Gruß
Spider
Hallo,
Gibt es ein Blog CMS, welches mit einer Art Includedatei funktioniert, welche ich in meine index.html einfüge, und dann nur tags (div tags oder so) in die Webseite einfüge, und er dann dort den Text (mit PHP oder JS) einfügt?
Also, ich will nicht so ein vorgefertiges gekochtes CMS, sondern will meine eigene Seite, aber ich will mir halt nicht selbst die Kommentarfunktion schreiben müssen, und auch meine Blogeinträge komfortabel ändern/hinzufügen.
Ich hoffe ihr versteht was ich meine, bin auf dem Gebiet nicht so bewandert. Hier mal ein Beispiel:
GtaSpider.de:
<script type="text/javascript" src="Scripts/BLOGCMS.js"></script>
[...]
<body>
<table align="center" border="0" cellpadding="0" cellspacing="0">
<td id="header2"><img src="images/header.jpg" width="766" height="57"></td>
</table>
[...]
<div id="blog"></div> <!-- HIER KOMMT SOZUSAGEN NUR DIESER KLEINE DIV TAG HIN, UND DORT FÜGT MEIN CMS DANN AUTOMATISCH MIT <HR> ODER SO GETRENNT MEINE BLOG DATEN EIN -->
[...]
<table align="center" border="0" cellpadding="0" cellspacing="0">
<td id="footer2"><img src="images/footer.jpg" width="816" height="97"></td>
</table>
</body>
Alles anzeigen
Vielen Dank schonmal
Ich habe es bisher halt alles von Hand gemacht auf meiner Homepage (https://autoit.de/www.gtaspider.de)
Gruß
Spider
Hallo
Jay! Einzeiler FTW (etwas schneller Version, ohne IE):
[autoit]#include <Inet.au3>
$aRegEx = StringRegExp(BinaryToString(InetRead("http://bit.ly/?url="&StringReplace(StringReplace(StringReplace(StringReplace(_INetExplorerCapable(InputBox("URL","Url eingeben",ClipGet())),"?","%3F"),"&","%26"),"=","%3D"),"#","%23"))),'"shortCNAMEUrl": "(.*?)",',3)
If Not @error Then InputBox("URL","Die bit.ly url lautet:",$aRegEx[0],"",10,120)
Gruß Spider
Hallo
Hab auch irgendwann mal sowas geschrieben, aber ohne GDI
Hier mal die überarbeitete Version, auch mit AcceleratorKeys, d.h. ihr könnt auch die Tastatur verwenden:
#include <EditConstants.au3>
#include <WindowsConstants.au3>
$GUIColorBG = 0xFFFFFF ;Hintergrundfarbe der GUI
$PadColor = 0x000000 ;Farbe der Pads
$PadTextColor = 0xFFFFFF ;Farbe des Textes auf den Pads
$ColorActive = 0xFF00FF00 ;Farbe der Pads, wenn aktiviert
$PadSize = 35 ;Größe der Pads
$Space = 5 ;Distanz zwischen den Pads
$PadTextSize = (($PadSize / 2))
$GUIWidth = ($Space + $PadSize) * 3 - $Space ;GUI Breite (wird aus Padgröße berechnet)
$GUIHeight = ($Space + $PadSize) * 5 - $Space;GUI Höhe (wird aus Padgröße berechnet)
$pin_inp = ""
Global $PIN_MaxLen = 7
Global $PIN = 1234
Opt("GUIOnEventMode", 1)
GUICreate("PIN", $GUIWidth, $GUIHeight, -1, -1, -1, $WS_EX_TOOLWINDOW)
GUISetOnEvent(-3, "_Exit")
GUISetState()
GUICtrlSetDefBkColor($PadColor)
GUICtrlSetDefColor($PadTextColor)
GUISetFont($PadTextSize)
$hInp = GUICtrlCreateInput("", 0, 0, $GUIWidth, $PadSize + $Space, $ES_READONLY, 0x00020000)
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, $PadTextSize + ($PadSize / 5))
$x = 0
Dim $AccelKeys[12][2]
For $i = 1 To 3
For $i2 = 0 To 2
$x += 1
$AccelKeys[$x - 1][0] = $x
$AccelKeys[$x - 1][1] = GUICtrlCreateButton($x, $Space * $i2 + $i2 * $PadSize, $Space * $i + $i * $PadSize, $PadSize, $PadSize, 0, 0)
GUICtrlSetOnEvent(-1, "_btn")
Sleep(50)
Next
Next
$AccelKeys[9][0] = "r"
$AccelKeys[9][1] = GUICtrlCreateButton("R", $Space * 0 + 0 * $PadSize, $Space * 4 + 4 * $PadSize, $PadSize, $PadSize)
GUICtrlSetOnEvent(-1, "_btn")
Sleep(50)
$AccelKeys[10][0] = "0"
$AccelKeys[10][1] = GUICtrlCreateButton("0", $Space * 1 + 1 * $PadSize, $Space * 4 + 4 * $PadSize, $PadSize, $PadSize)
GUICtrlSetOnEvent(-1, "_btn")
Sleep(50)
$AccelKeys[11][0] = "{ENTER}"
$AccelKeys[11][1] = GUICtrlCreateButton("OK", $Space * 2 + 2 * $PadSize, $Space * 4 + 4 * $PadSize, $PadSize, $PadSize)
GUICtrlSetOnEvent(-1, "_btn")
GUISetAccelerators($AccelKeys)
While 1
Sleep(100)
WEnd
Func _btn()
Local $sText = GUICtrlRead(@GUI_CtrlId)
Local $inpRead = GUICtrlRead($hInp)
Switch $sText
Case "R"
GUICtrlSetData($hInp, "")
$pin_inp = ""
Case "OK"
If $pin_inp = $PIN Then
GUIDelete()
MsgBox(0, "", "Jay! Richtiger PIN")
Exit
Else
GUICtrlSetData($hInp, "")
$pin_inp = ""
MsgBox(16, "", "Fail!")
EndIf
Case Else
If StringLen($pin_inp) > $PIN_MaxLen - 1 Then Return
$pin_inp &= $sText
Local $x = ""
While StringLen($x) < StringLen($pin_inp) - 1
$x &= "*"
WEnd
GUICtrlSetData($hInp, $x&$sText)
EndSwitch
EndFunc ;==>_btn
Func _Exit()
Exit
EndFunc ;==>_Exit
Gruß
Spider
Heyho,
Da ich in den letzten Tagen von verschiedenen Personen angesprochen wurde, ob ich denn noch den MultiChat Client auf dem PC hab, ich ihn aber leider nicht finde, habe ich mal schnell ein kleines Beispiel für einen Multi TCP Server geschrieben.
Falls es noch Fragen gibt, beantworte ich die natürlich gerne.
Den Server, wie auch ein Beispiel findet ihr im Anhang
Gruß
Spider
Hallo,
Ein paar von euch kennen das Problem bestimmt auch: Man will mal wieder eine super UDF zaubern und holt sich die Informationen von msdn. Die Funktionen rauszuschreiben funktioniert meistens ohne Probleme, aber es ist schrecklich alle Struct-Konstanten (DllStructCreate) von msdn in ein Script zu packen, und das auch noch richtig Formatiert.
Deswegen dieses kleine Tool: Einfach starten, ein Link von msdn in die Zwischenablage kopieren und das Tool macht den rest. Es holt sich die Daten von msdn und schreibt sie, natürlich hübsch Formatiert, in eine von dem Anwender spezifizierte Datei.
Hiermal ein Beispiel link: http://msdn.microsoft.com/en-us/library/ms941841.aspx
Hoffe es kann jemand gebrauchen:
;==================
;msdn constants importer
;by GtaSpider
;==================
;PLEASE CHANGE IF YOU WANT
Global Const $sVarBefore = "$tag" ; will be: $tagTITLE_OF_THE_CONSTANT
Global Const $sConstFileToWrite = @ScriptDir&"\Clip_Constants.au3"; the Constants will be written in the next line of the file
;STOP CHANGE
FileWrite($sConstFileToWrite,";Constants importet from msdn with 'msdn constants importer' by GtaSpider'"&@CRLF&@CRLF)
[/autoit] [autoit][/autoit] [autoit]HotKeySet("^c","_clip")
HotKeySet("^C","_clip")
HotKeySet("^{ins}","_clip")
While 1
Sleep(500)
WEnd
Func _clip()
HotKeySet(@HotKeyPressed)
Send(@HotKeyPressed)
Local $sURL = ClipGet()
If StringInStr($sURL,"msdn.microsoft.com") Then
TrayTip("Clip",$sURL,2)
Local $sSource = BinaryToString(InetRead($sURL))
Local $aRegExp = StringRegExp($sSource,'(?s)<div class="title">(.*?)</div>.*?<pre class="libCScode".*?>.*?\{(.*?)}.*?</pre>',3)
If UBound($aRegExp) < 2 Then
MsgBox(16,"Clip","Error, RegExp returnd bad values")
Else
Local $sTitle = $aRegExp[0]
Local $sData = $aRegExp[1]
$sData = StringStripCR(StringReplace(StringReplace($sData,@LF,''),@CRLF,''))
Local $sNewLine = 'Global Const '&$sVarBefore&$sTitle&' = "',$sRet
Local $aData = StringSplit($sData,";"),$i
For $i = 1 To $aData[0]
If Not StringLen($aData[$i]) Then ContinueLoop
$sNewLine &= $aData[$i]&"; "
If StringLen($sNewLine) > 100 Then
$sRet &= $sNewLine& '" & _'&@CRLF
$sNewLine = @TAB&@TAB&'"'
EndIf
Next
$sRet &= $sNewLine&'"'
If StringRight($sRet,10) = ' & _'&@CRLF&@TAB&@TAB&'""' Then $sRet = StringTrimRight($sRet,10)
FileWrite($sConstFileToWrite,$sRet&@CRLF)
TrayTip($sTitle,"Successful insertet to"&@CRLF&$sConstFileToWrite,2)
EndIf
EndIf
HotKeySet(@HotKeyPressed,"_clip")
EndFunc
Greetings
Spider
Hallo,
Ja, ich hab ein Service Pack.. warte.. Ne, aber das gleiche Problem hab ich auch bei der RAPI (Active Sync/Windows Mobile/CE API). Bekomme ich auch nur ein leeren String. Aber vielleicht ist dort auch kein Service Pack installiert
Windows ist doch berühmt für seine Fehlermeldungen, warum gibt es hier keine aus?
Naja, vielen Dank Andy.
Gruß
Spider
Hallo
ich hab ein kleines Problem mit DllStructCreate unter Windows 7 und mit AutoIt 3.3.6.0: Wenn ich ein Array mit DllStructCreate definieren will bekomme ich immer ein leeren String (mit DllStructGetData) zurück.
Auch das offizielle Beispiel von der Hilfe funktioniert bei mir nicht. Er zeigt bei "Version: " immer ein Leerstring (nichts) an (also bei szCSDVersion, das ist ein char[128] Array)
$p = DllStructCreate("dword dwOSVersionInfoSize;dword dwMajorVersion;dword dwMinorVersion;dword dwBuildNumber;dword dwPlatformId;char szCSDVersion[128]")
[/autoit] [autoit][/autoit] [autoit];think of this as p->dwOSVersionInfoSize = sizeof(OSVERSIONINFO)
DllStructSetData($p, "dwOSVersionInfoSize", DllStructGetSize($p))
;make the DllCall
$ret = DllCall("kernel32.dll","int","GetVersionEx","ptr",DllStructGetPtr($p))
if Not $ret[0] Then
MsgBox(0,"DllCall Error","DllCall Failed")
exit
EndIf
;get the returned values
$major = DllStructGetData($p,"dwMajorVersion")
$minor = DllStructGetData($p,"dwMinorVersion")
$build = DllStructGetData($p,"dwBuildNumber")
$platform = DllStructGetData($p,"dwPlatformId")
$version = DllStructGetData($p,"szCSDVersion")
;free the struct
$p =0
msgbox(0,"","Major: " & $major & @CRLF & _
"Minor: " & $minor & @CRLF & _
"Build: " & $build & @CRLF & _
"Platform ID: " & $platform & @CRLF & _
"Version: " & $version)
Hat jemand ne idee woran das liegen kann?
Gruß
Spider
Hallo
1) Hat das nichts in der Jobbörse zusuchen. Jobbörse = Jobs gegen Bezahlung (in welcher Art auch immer)
2) Wenn du Hilfe willst versuche deine Antwort in Zukunft.. schlichter Zugestalten, zumindest was die Smileys angeht.
3) Was genau soll das denn werden?
Spider
TOPIC MOVED: Jobbörse --> Hilfe und Unterstürzung
Hallo
PrideRage: Das das daneben war wurde hier wohl oft genug gesagt. Und wenn man schon das verlangen nach einem "richtigen Captcha" hat, dann aber auch bitte richtig^^
Hab dein Code mal etwas abgeändert
Gruß
Spider