Beiträge von Schrubber

Schrubber

Setz doch die Variable $tempF1 auf Global?

Schrubber

[autoit]

$vari = 1

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

if($vari = 1) Then
HotKeySet("{K}", "_function1")
Else
HotKeySet("{K}", "_function2")
EndIf

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

while 1
Sleep(100)
WEnd

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

Func _function1()
$vari = 2
;Was das machen soll
;........
$vari = 1
EndFunc

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

Func _function2()
;NIX
EndFunc

[/autoit]

Schrubber

Bei mir zu haust am Pc ist der IE zu 100% entfernt.

Schrubber

[autoit]

While ProcessExists($netskatexe)
;Hauptschleife Wartet auf Fortsetzen
If WinExists("Daten zum Fortsetzen einer Runde exportieren") Then
;If MsgBox(4, "Auswahl", "Automatisch ist JA" & @CRLF & "Selbst wählen = NEIM") = 6 Then
While WinActive("Daten zum Fortsetzen einer Runde exportieren")
If MsgBox(4, "Auswahl", "Automatisch ist JA" & @CRLF & "Selbst wählen = NEIM") = 6 Then
ControlSetText("Daten zum Fortsetzen einer Runde exportieren", "", "Edit1", $mail_forts)
Send("{ENTER}")
Sleep(10000)
;MsgBox(0, "", "Ich sende Daten ab", 2)
ControlClick("Daten zum Fortsetzen einer Runde exportieren", "", "[ID:64]")
Sleep(10000)
Else
ExitLoop
EndIf
WEnd
EndIf
EndIf
WEnd

[/autoit]

Schrubber

Ich würds ggf. nicht in ein unbekanntes Format setzen sondern vll in eine .wav (vorrausgesetzt, es sind andere vorhanden)

Schrubber

Hey.

Kann mir von euch jemand vielleicht die KeyValue von MausradAuf und MausradAb sagen?

Danke

Schrubber

Probiers ;D Ich hab selber kA

Schrubber

Mit IECreate machst du ein IEFenster auf deiner GUI

Schrubber

Du machst mit StringBetween den Anfang der Tabelle <table> bis zum ende </table> und schreibst diese entweder auf eine .html Seite, wodurch du ihn dir per IECreate usw. ausgeben lassen kannst.

Schrubber

shell.....?

Und setz doch

[autoit]

#AutoIt3Wrapper_icon=your_icon.ico

[/autoit]

ganz oben hin. Beim Compilen macht ers dann

Schrubber

[autoit]

#include-once

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

;===============================================================================
;
; Function Name: _INetGetSourcePost()
; Description: Gets the source from an URL without writing a temp file and you can send a Post.
; Parameter(s): $sURL = The URL of the site.
; $sPost = The Post to send
; Requirement(s): -
; Return Value(s): On Success - Return a array with $aReturn[0] = Backheader and $aReturn[1] = Sourcecode
; On Failure - 0 and sets @ERROR
; @error = 1: Post or URL is nothing
; @error = 2: Error by RegularExpression
; @error = 3: $sHost or $sHttp1 is nothing
; @error = 4: Can not get IP of Host
; @error = 5: Can not connect to host
; @error = 6: Nothing can be send
; @error = 7: Connection abborted while receiving
; Author(s): GtaSpider
;
;===============================================================================

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

Func _INetGetSourcePost($sURL, $sPost)
Local $iSocket, $sHeader, $sRecv, $iIP, $sHost, $aRegExp, $sHttp1,$iErr,$iSend,$aReturn[2]

If $sURL = '' OrOr $sPost = '' Then Return SetError(1, 0, 0)

If StringLeft($sURL, 7) <> 'http://' AndAnd StringLeft($sURL, <> 'https://' Then $sURL = "http://" & $sURL
If StringRight($sURL, 1) <> "/" Then $sURL &= "/"

$aRegExp = StringRegExp($sURL, "http?://(.*?)/", 3)
If @error Then Return SetError(2, 0, 0)

$sHost = $aRegExp[0]
If $sHost = '' Then Return SetError(3, 0, 0)

$sHttp1 = StringTrimLeft($sURL,StringInStr($sURL,"/",-1,3)-1)
If $sHttp1 = '' Then Return SetError(3, 0, 0)

$sHeader = "POST " & $sHttp1 & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: AutoIt v3" & @CRLF & _
"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost

TCPStartup() ;If not already done
$iIP = TCPNameToIP($sHost)
If $iIP = '' OrOr StringInStr($iIP, ".") = 0 Then Return SetError(4, 0, 0)
$iSocket = TCPConnect($iIP, 80)
If @error OrOr $iSocket < 0 Then Return SetError(5, 0, 0)

$iSend = TCPSend($iSocket, $sHeader)
If @error OrOr $iSend < 1 Then Return SetError(6, 0, 0)

While 1
$sRecv = TCPRecv($iSocket, 1024)
$iErr = @error
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($iSocket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
If $iErr Then Return SetError(7,0,0)
WEnd

$aReturn[0] = StringLeft($sRecv,StringInStr($sRecv,@CRLF&@CRLF)-1)
$aReturn[1] = StringTrimLeft($sRecv,StringLen($aReturn[0])+4)
Return $aReturn
EndFunc ;==>_INetGetSourcePost

[/autoit]

Damit kriegst du schonmal den Quelltext

Schrubber

[autoit]

do
Sleep(20)
$msg = GUIGetMsg()
Select
Case $msg = $pngname1
ShellExecute("http://www.test.de")
EndSelect
until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit]

Nö

[autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $$GUI_EVENT_CLOSE
;Was er machen soll, falls das Programm geschlossen wird.

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

Case $pngname1
ShellExecute("http:((http://www.test.de")
EndSwitch
WEnd

[/autoit]

Schrubber

Zu dem anklickbaren:

Du gibst deiner PNG eine Variable und rufst sie per Case $Variable auf

Schrubber

achso

Dann stell doch die Datei, wo die Drops drinstehen und was du verändern willst, einfach hier rein

Schrubber

Dropeditor sind für mich Programme, die entweder looten oder droppen. Und das würde in die Spalte "Bots" laufen

Schrubber

Sorry, stop mal

Was soll das Programm am Ende, wenn es fertig ist, machen?

Schrubber

"Machen sie einen IQ Test und lassen sie sich ihr Ergebnis per SMS zuschicken!"

Allein sowas zeugt schon von Dummheit, in so ne Abofalle zu tappen

Für mich ist eine Hochbegabung nicht, dass jemand weiß, in dem wievielten Breitengrad und Längengrad sich Belgrad befindet oder der alle US Präsidenten mit Vornamen, Zunamen und geschlechtliche Orientierung auswendig kennt.

Ich war damals auch bei einem solchem "Test" und die haben mir das richtig versaut. Mein Ergebnis war damals 139, was stand in dem Protokoll?

"Tim hat im Vergleich zu den anderen getesteten mit 98% gleiche oder bessere Ergebnisse...

Die hätten dieses "gleiche" ruhig streichen können.
Das zeigt, wie bescheuert die Leute eigentlich sind.

Aber sagen wirs so
Am logischen Denkvermögen kann man eigentlich schon sagen, ob man Hochbegabt ist.

Wer logische Verknüpfungen zwischen 2 voneinander scheinbar unterschiedlichen Fällen ziehen kann und somit aufs Ergebnis kommt ist für mich jemand, der den Titel Hochbegabt verdient. Und nicht solche 45jährigen alten Säcke auf RTL, die meinen, sie wären der Knüller mit ihren auswendiggelernten Mathekünsten... Dieser Professor dort, der sich einen kloppt, weil er die 22te Wurzel aus 195648949444949 kennt...

Und an Schulnoten kann ichs schon festmachen

In meiner Schulzeit hab ich immer einen Schnitt von 3,9 gehabt. Also 5-10 Klasse. Mittlere Reife ja, Quali nicht. Aber nicht, weil ich den Stoff net gerallt hab sondern, weil mir alles halt zu einfach war. Während wir in Informatik Word / Excel hatten, saß ich an 3d Modelling oder HTML, da ich das alles schon konnte. Und nicht wirklich meinen Vorstellungen vom interessanten Unterricht entsprachen Biologie, Chemie... pff..... Kann ichn feuchten drauf legen. Hat mich nie interessiert... Bio 4 Chemie 5-6...

Auch auf meine Tadel aus meiner Schulzeit bin ich net stolz Bekommen, weil ich die Lehrer mit meiner langeweile genervt hab. Ständig mit Nachbarn am labern, die anderen vom Unterricht abhalten usw... Zeichen für uninteressante Unterrichtsmethode

Nun bin ich auf nem Technischen Berufskolleg im ITA Zweig, wo ich Fachinformatiker mache. Was los? Schnitt 2,1... Schlechteste Note is ne 4 (1x)...

Aber des wollt ich nur mal gesagt haben Hatte grad Spaß am schreiben

Und meist haben die, die von sich glauben sie seien was besseres, weil vll die Quersumme ihres IQ´s durch 2 teilbar ist usw. voll einen an der Waffel.

Schrubber

Schrubber

wtf

Ruft doch einfach den Shutdown -f -t ZEIT auf und macht nen Kopf, der shutdown -a macht.. Das is auchn ShutdownManager ohne Schnickes

Schrubber

Das mit den Leerzeichen isn Bug, hab ich auch oft Er zeigt 3 an obwohl es nur 1 Zeilenumbruch ist.

Schrubber

Soo

Ich hab hier beim Praktikum nun mein Programm in die 1. Phase gebracht.

Was fehlt noch?
-Accountabfrage bei Serialregistration, ob bereits vorhanden ist.
-Email-Sendefunktion
-Vollversion registrieren
-FAQ

Spoiler anzeigen

[autoit]

;; ______________________________________________
; / /|
; / / |
; / / |
; / / |
; /______________________________________________/ |
; | Author: Schrubber | |
; | Name: SafeThat | |
; | Version: 1.0 | /
; | Homepage: http://www.Schrubbershomepage.de | /
; | Date: 7. Juli 2010 | /
; | Thanks to: progandy (_MySQL UDF) | /
; |______________________________________________|/

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

;Was noch fehlt:
;Vollversion
;Emailsendefunktion
;EmailDaten
;Registerserial wegen Accountabfrage (ob vorhanden) nochmal überprüfen

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <mysql.au3>
#include <libMySQLdll.au3>
#include <Inet.au3>

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

OnAutoItExitRegister("_cleanup")