Hallo
Jo, ok, dass stimmt natürlich^^ Aber das wars dann auch.
Mfg Spider
Hallo
Jo, ok, dass stimmt natürlich^^ Aber das wars dann auch.
Mfg Spider
Hallo
Dieses SRandom(BETA)/Random funktioniert anscheinend doch nicht so super wie es sollte.
$ti = TimerInit()
While 1
$rand = Random(1, 10, 1);erstes Random 1-10
SRandom(Random(0, 164, 1));Setze Randomseed auf eine Zahl zwischen 0 und 164
$rand2 = Random(1, 10, 1);zweites Random 1-10 (mit seed)
TrayTip("", $rand & @CR & $rand2, 2);Ausgabe
If $rand = $rand2 Then;wenn Random1 = Random2 ist
Beep($rand * 100, 100); Dann beep
ConsoleWrite($rand & "_" & TimerDiff($ti) & @CRLF);und schreib in SciTe console
Else;Ansonsten timerneustarten
$ti = TimerInit()
Sleep(100)
EndIf
WEnd
Bei mir gibt es in der Coonsole periodisch folgende Zahlen:
Also $rand = $rand2 ca alle 214 ms
Nach ca 213ms ist $rand = $rand2 mit 9
Nach ca 320ms ist $rand = $rand2 mit 1.
Und das ist Periodisch, also es geht unendlich soweiter.
8_108.110716427772
8_212.538251925217
8_212.390941776813
9_214.542396795207
1_319.707057472665
8_211.651902765706
9_211.583859286748
1_317.038686201621
8_211.480567253506
9_211.791110163158
1_316.546511195286
8_211.388475317769
9_213.551918481765
1_318.050845940927
8_211.275432271804
9_212.229559340952
1_319.696400060298
Alles anzeigen
Ist das bei euch auch so?
Mfg Spider
Hallo,
Ich benutzt grade in letzerzeit immer mehr Teamspeak. Da ich meine G15 habe, kann ich per LCD display auswählen, dass sich mein Mikro ausschalten kann,
oder dass ich mich Automatisch zu einem Server (und da Wieder zu einem Channel) verbinden kann.
Grade beim Zocken ist das sehr hilfreich.
Paar Mögliche Features die im Script enthalten seien könnten:
Da es ein etwas aufwändigeres Tool währe, frage ich lieber voher nochmal nach, ob überhaupt Interesse besteht.
Warum etwas Programmieren was sowieso nimand braucht
Also, Besteht Interesse? Würde mich über Replies freuen
Mfg Spider
Hallo
Ja ein Client müsste schon laufen, aber tbei den Tcp befehlen ist autoit nicht so performance rauben. (Ähnlich wie bei GuiGetMsg(). da verbrauch autoit ja auch 0% CPU
In meiner signatur ist ein Script namens "admin Console". Das Sperrt auch den Desktop über TCP/IP
Mfg Spider
Hallo
Mein erstes Spiel was ich gezockt hab war Moorhuhn 1 und GTA 1 (Daher mein Nick, musst mich dann entscheiden zwischen MoorhuhnSpider oder GtaSpider ).
Als Klassiker fällt mir jetzt Pong ein. (Sehr kreativ, ich weiss^^)
Mfg Moor.. äh GtaSpider
Hallo
OCR wird auf diese Weise hier nicht unterstütz. Wenn du Google gut genug fragst, wirst du es sicher finden, dass ist das einzige was ich dir sagen kann/will.
Gibt hier schon genug Threads, wo wir Probleme bekommen haben, die mit OCR zusammenhingen. (Beispiel: SMS Sender - 100%ig kosteloses SMS Senden! ).
Mfg Spider
Hallo
So, hab nun Version 1.5 Released (siehe Post 1)
Unterstüzt jetzt auch LupiLoad. Hab auch paar sachen bei IMG-UP.net gefixt. Sorry falls bugs drin sein sollten, is ja aber auch schon spät
Mfg Spider
Hallo
Mh, bei mir auch. Hängt damit zusammen das img-up.net offline ist Öffnet mal img-up.net manuell, geht das bei euch?
Mfg Spider
Hallo
Hat es schon jemand ausprobiert? Funktioniert es bei allen?
Mfg Spider
Hallo
Ich lade sehr oft Bilder bei IMG-UP.net (geht schneller als Imageshack^^) hoch. Problem ist, dass ich immer erst Firefox starten muss, dann Lesezeichen -> IMG-UP.net dann Datei eintippen, blablabla.
Also hab ich mir gedacht, Hey, lass mich das mal Automatiesieren.
Das is dabei herausgekommen, nichts überwältigendes, aber wie ich finde etwas Praktisches:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=fav.ico
#AutoIt3Wrapper_outfile=IMG-UPLoader.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Fileversion=1.5.0.0
#AutoIt3Wrapper_Res_LegalCopyright=GtaSpider [gtaspider@gmx.de]
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;VERSION 1.5
;IMG-UPLoader - Using http://www.img-up.net/LupiLoad
;Script by GtaSpider!
;You can share this Freeware, but you must share it 100% for Free.
;If you want to change the Sourcecode, please ask me (GtaSpider) at http://www.autoit.de or by E-Mail: [email='gtaspider@gmx.de'][/email]
#NoTrayIcon
;Includes
#include<IE.au3>
#include<String.au3>
#include<WindowsConstants.au3>
#include<GUIConstantsEx.au3>
Global $Uploader = InputBox("", "Wähle dein Uploader" & @CRLF & "1=LupiUpload.de" & @CRLF & "0=IMG-UP.net") ;1=LupiUpload, 0=IMG-UP.net
TraySetToolTip("Initalizing...")
Switch $Uploader
Case 0
$sURL = "http://www.img-up.net/?html"
Case 1
$sURL = "http://www.lupiupload.de/index.php?up=1"
Case Else
Exit MsgBox(16, "", "Wrong Param-EXIT")
EndSwitch
;Opts & Globals
Opt("WinTitleMatchMode", 4)
$taskbar_pos = WinGetPos("classname=Shell_TrayWnd")
$taskbar_pos = $taskbar_pos[3]
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)
TraySetClick(8)
Global $oIE = _IECreate($sURL, 0, 0, 0)
Global $prg, $lb
Opt("WinTitleMatchMode", 1)
TraySetState()
TraySetToolTip("Image Uploader - By GtaSpider")
;Gui/Tray
GUICreate("", 200, 25, @DesktopWidth - 200, @DesktopHeight - ($taskbar_pos + 25), $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
$prg = GUICtrlCreateProgress(0, 0, 200, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$lb = GUICtrlCreateLabel("", 90, 5, 20, 25)
GUICtrlSetBkColor(-1, -2)
TraySetOnEvent(-13, "_OnClick")
;While
While 1
Sleep(100)
WEnd
;Functions
Func _OnClick()
;Doubleclick on Tray
Local $sSupportedFiles, $sRet, $sFod
GUICtrlSetData($prg, 0)
GUICtrlSetData($lb, "0%")
GUISetState()
_IELoadWait($oIE)
Do
$sSupportedFiles = _GetSuppFiles()
If Not @error Then ExitLoop
Until 1
$sSupportedFiles = StringReplace($sSupportedFiles, " ", '')
$sSupportedFiles = "*." & StringReplace($sSupportedFiles, "|", ';*.')
GUICtrlSetData($prg, 5)
GUICtrlSetData($lb, "5%")
$sFod = FileOpenDialog("Bild zum Uploaden", "", "Bilddateien (" & $sSupportedFiles & ")")
If @error Then Return GUISetState(@SW_HIDE) * 0
$sRet = String(_UploadImage($sFod))
If $sRet = '0' Then
TrayTip("Fehler", "Es gab ein Problem beim Upload. Probieren Sie den Vorgang nochmal aus" & @CRLF & "Wenn es nichts hilft, wenden Sie sich bitte GtaSpider.", 2, 2)
Beep(100, 100)
Else
TrayTip("Upload Complete - By GtaSpider", "Die Datei wurde erfolgreich auf " & $sURL & " geladen." & @CRLF & "Der Link befindet sich in der Zwischenablage" & @CRLF & $sRet, 1, 1)
ClipPut($sRet)
Beep(300, 100)
EndIf
_IENavigate($oIE, $sURL)
GUISetState(@SW_HIDE)
EndFunc ;==>_OnClick
Func _UploadImage($sImage)
;Upload the Image
Local $oForm, $oInputFile, $hIE, $oLink, $aSupportedFiles, $sExt, $iExtSup = False, $i, $sRet
If Not FileExists($sImage) Then Return MsgBox(48, "Warnung", 'Die Datei existiert nicht! Upload abgebrochen.') * 0
GUICtrlSetData($prg, 15)
GUICtrlSetData($lb, "15%")
$sSupportedFiles = _GetSuppFiles()
If @error Then Return MsgBox(16, "Error", "Fehler beim lesen der Dateitypen.") * 0
GUICtrlSetData($prg, 30)
GUICtrlSetData($lb, "30%")
$aSupportedFiles = StringSplit(StringReplace($sSupportedFiles, " ", ""), "|")
$sExt = StringTrimLeft($sImage, StringInStr($sImage, ".", 0, -1))
For $i = 1 To $aSupportedFiles[0]
If $sExt = $aSupportedFiles[$i] Then
$iExtSup = True
ExitLoop
EndIf
Next
If Not $iExtSup Then Return MsgBox(48, "Warnung", 'Der Dateityp "' & $sExt & '" wird nicht unterstüzt! Upload abgebrochen.') * 0
GUICtrlSetData($prg, 50)
GUICtrlSetData($lb, "50%")
If $Uploader = 0 Then
$oForm = _IEFormGetObjByName($oIE, "imgup")
$oInputFile = _IEFormElementGetObjByName($oForm, "filedata")
ElseIf $Uploader = 1 Then
$oForm = _IEFormGetObjByName($oIE, "upload")
$oInputFile = _IEFormElementGetObjByName($oForm, "file_1")
EndIf
GUICtrlSetData($prg, 60)
GUICtrlSetData($lb, "60%")
_IEAction($oInputFile, "focus")
$hIE = _IEPropertyGet($oIE, "hwnd")
GUICtrlSetData($prg, 70)
GUICtrlSetData($lb, "70%")
ControlSend($hIE, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", $sImage)
GUICtrlSetData($prg, 85)
GUICtrlSetData($lb, "85%")
If $Uploader = 0 Then
_IENavigate($oIE, 'javascript:uploadsubmit()')
ElseIf $Uploader = 1 Then
$oElem = _IEFormElementGetObjByName($oForm, "senden")
_IEAction($oElem, "click")
;~ _IEImgClick($oIE,"http://lupiupload.de/images/Button1.jpg")
;~ _IELinkClickByIndex
;~ _IEFormSubmit($oForm)
;~ _IENavigate($oIE,'javascript:startUpload()')
EndIf
GUICtrlSetData($prg, 95)
GUICtrlSetData($lb, "95%")
If $Uploader = 0 Then
$oForm = _IEFormGetObjByName($oIE, "links")
$oLink = _IEFormElementGetObjByName($oForm, 'normal')
$sRet = _IEFormElementGetValue($oLink)
ElseIf $Uploader = 1 Then
_IELoadWait($oIE)
$sRet = _StringBetween(_IEBodyReadHTML($oIE), '<P><SPAN class=Stil15><SPAN class=Stil16>Link zum Bild: <A href="', '" target=_blank>')
If Not IsArray($sRet) Then Return MsgBox(16, "", "Link nicht gefunden auf " & $sURL) * 0
$sRet = $sRet[0]
EndIf
GUICtrlSetData($prg, 100)
GUICtrlSetData($lb, "100%")
Return $sRet
EndFunc ;==>_UploadImage
Func _GetSuppFiles()
Local $sRet, $sSource = _IEBodyReadHTML($oIE)
If $Uploader = 0 Then
$sRet = _StringBetween($sSource, '<DIV class=bolded style="PADDING-TOP: 20px">', '</DIV>')
If Not IsArray($sRet) Then Return SetError(1, 0, "*")
$sRet = $sRet[0]
Else
$sRet = _StringBetween($sSource, "Dateitypen:</DIV></TD>" & @CRLF & '<TD class=main height=30>' & @CRLF & '<DIV align=left>', '</DIV></TD></TR>')
If Not IsArray($sRet) Then Return SetError(1, 1, "*")
$sRet = StringUpper(StringReplace($sRet[0], ",", " |"))
EndIf
Return $sRet
EndFunc ;==>_GetSuppFiles
Benutzung:
Sehr Simpel, einfach das Skript starten, und dann ggf Doppelklick auf das Trayicon machen.
Wenn du ein Doppelklick gemacht hast, öffnet sich der Standard FileOpenDialog. Einfach Bild auswählen und auf Öffnen klicken. Den Rest macht er automatisch.
Zum Schluss steht wenn alles geklappt hat unten "Upload Complete". Dann wurde der IMG-UP link in die Zwischenablage gespeichert.
Rechtliches:
Ihr dürft das Programm gerne weitergeben, dann aber halt mit Verweis auf diesen Post/auf mich.
Wenn ihr den Sourcecode ändern wollt, und dass Skript dann weitergeben wollt (eigene Nutzung ist mir natürlich egal^^) fragt mich bitte vohrer per PM oder E-Mail um Erlaubnis.
Von der Seite von IMG-UP gibt es in den AGB's auch nichts, was dieses Skript nicht tollerieren würde
Im Anhang nochmal die Kompelierte EXE mit Icon.
Mfg Spider
Edit: Version 1.5 rausgebracht (Mehr Infos)
Hallo
Falls du den Total Commander benutzt (*schwärm*^^), dann gibt das Plugin "IclView" auf der Pluginseite für den Lister.
Damit kannst du aus *.ico, *.exe, *.dll, *.icl,... Dateien, Icons dir angucken, und ggf auch direkt als Icon extrahieren, oder als icl Datei (die du Natürlich selbst definieren kannst) speichern.
Mfg Spider
Hallo
Tatsache, es flickert weniger.
Aber dafür gibt es massen andere Probleme, alleine schon Weil "" keine EX Var ist
Hier z.B. wird mit "" der button nicht angezeit, und nach ner Zeit verschwindet google, ohne hab ich diese Probleme nicht.
#include<IE.au3>
#include<WindowsConstants.au3>
#include<GUIConstantsEx.au3>
$oIE = _IECreateEmbedded()
$gui = GUICreate("Flckr",540,540,Default,Default,$WS_SIZEBOX,$WS_CLIPCHILDREN)
GUICtrlCreatePic("c:\WINDOWS\Angler.bmp",0,0,400,20)
GUICtrlSetState(-1,$GUI_DISaBLE)
GUICtrlCreateButton("TEST",0,0,200,20)
GUICtrlCreateObj($oIE,30,30,500,500)
GUICtrlSetResizing(-1, 32 + 64 + 1)
GUISetState()
_IENavigate($oIE,"www.google.de",0)
#region - GUI SwitchLoop
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#endregion
Mfg Spider
Hallo
Ich hab ein Flicker Problem mit _IECreateEmbedded(). Undzwar, wenn ich die GUI Resize, dann flickert meine gesamte GUI extrem was ziemlich nervig ist
Beispiel:
#include<IE.au3>
#include<WindowsConstants.au3>
#include<GUIConstantsEx.au3>
$oIE = _IECreateEmbedded()
$gui = GUICreate("Flckr",520,520,Default,Default,$WS_SIZEBOX)
GUICtrlCreateObj($oIE,10,10,500,500)
GUICtrlSetResizing(-1, 32 + 64 + 1)
GUISetState()
_IENavigate($oIE,"www.autoit.de",0)
#region - GUI SwitchLoop
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#endregion
Erstmal würde mich interessieren, ob das bei jedem so ist. Also einfach mal die GUI vergrößern.
Freuen würde es mich natürlich, wenn jemand eine Lösung hätte
Mfg Spider
Hallo
[autoit]MsgBox(0,"",@AutoItVersion)
[/autoit]Starte das mal. Steht da 3.2.10.0 oder steht da 3.2.11.0/3.2.11.1?
Mfg Spider
Hallo
Welche AutoIt Version benutzt du?
Mfg SPider
Hallo
Wenn du die Stable version von AutoIt benutzt (3.2.10.0) dann sollte es keine Probleme geben.
Wenn du aber die Beta benutzt (2.3.11.0 oder höher) dann musst du andere Includes verwenden.
Die Includes werden in der neuen Beta version ganz anderes gemanaged. Es gibt nicht mehr eine GuiContants die alles includet,
sondern viele kleine Includes. Das bringt, dass die EXE Datei kleiner wird (keine unnötigen Includes mit kompeliert werden.)
Entweder du suchst in der Hilfe nach diesen Includes, oder du machst es mit dem Tool "Organize Includes" von mega/Xeno.
Benutz einfach die Suche oben rechts, und such nach "Organize Includes".
Mfg Spider
Hallo
Ich bin momentan nicht zuhause, aber villeicht hilft dir das hier weiter:
http://msdn2.microsoft.com/en-us/library/bb207535.aspx
Wenn ich nacher zuhause bin, schreib ich dir auch gerne ein kleines Script.
Mfg Spider
Hallo
Wenn ein Script kompeliert ist, ist es ja egal ob bzw welche AutoIt Version installiert ist.
Mfg Spier
Hallo
Hübsches Feature
Aber ich frage mich warum du das mit dem Output so kompliziert machst Reicht doch einfach ConsoleWrite?!
Also statt
SendSciTE_Command($My_Dec_Hwnd, $Scite_hwnd, 'output:+> OrganizeIncludes AutoIt3 ' & $scriptVersion & ' Copyright ' & chr(169) & ' Th.Meger ' & $date)
Einfach
ConsoleWrite("+> OrganizeIncludes AutoIt3 ' & $scriptVersion & ' Copyright ' & chr(169) & ' Th.Meger ' & $date)
Mfg Spider
Hallo
ProcessClose/WinClose/WinKill?
Mfg Spider