Beiträge von Schrubber

Hey Melanie.

;~ script for next sample automation

global $play=0
HotKeySet("{SPACE}","_starten")
HotKeySet("{x}","_stoppen")

while 1
if($play = 1) then
WinActivate("Analyst - ", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "{RIGHT}")
$time = 20
AdlibRegister("_countdown", 1000)
Endif

While $time > 0
ToolTip($time)
Sleep(10)
WEnd
WEnd

Func _countdown()
$time -= 1
EndFunc

func _starten()
$play=1
endfunc

func _stoppen()
$play=0
endfunc

Aber dein Script hat in meinen Augen nicht wirklich nen Sinn?

Du hast 2 Whileschleifen ineinander, sprich: Bist du in der 2., kannst du nicht mehr auf die 1. Zugreifen. Also ist die Abfrage nach $play schonmal nicht brauchbar. Desweiteren: Wenn sich die 2. While Schleife ausführt, kommst du da nichtmehr rauß. Du hast nirgendwo einen Bzug von der Schleife gezogen, womit du $time änderst. Also ist der Wert konstant und somit eine Endlosschleife....

Rubberducky

Hallo ihr.

Bin grad an einem neuen, kleinen Tool dran.

Das Programm funktioniert wie folgt:

Ich habe eine .ini Datei, wo Reihe für Reihe ein Satz steht. In jeder Reihe steht 1 Satz.

Mein bisheriger Code:

Nur meine Frage:

Wie lese ich alle Zeilen in ein Array z.B. ein, wenn ich nicht die genaue Zeilenanzahl weiß?
Wäre lieb, wenn ihr mir auch hier erneut helfen könntet

Oder vielleicht sogar einen leichteren Weg?

Rubberducky

Funzt bei mir nicht. Nur schwarzes Fenster, mehr nicht?

Ok danke

Hallo

Ich hab mal ne Frage. Kann mir jemand sagen, ob ich dort richtig gerechnet hab?

Meine Aufgabe war:

Durch einen metallischen Leiter des Querschnitts 6,9cm² fließen binnen 6,42h 8,95*10^19 Elektronen. Seine Länge berägt 6,559*10^4 mm und sein spezifischer Widerstand sei 16MiliOhm mm²/m. Berechne den Strom I und den Widerstand R des Leiters!

Hab dann so gerechnet für I:

I ist Stromstärke, somit in Ampere gemessen.

C = A * s

1C = 6,242 * 10^18 Elektronen.

Das ergibt beim Rechnen von meiner vorgegebenen Anzahl von Elektronen, die durch den Leiter ziehen / den 1 Coulomb:

(8,95*10^19):(6,242*10^18) = 14,338C

Die Zeit zum Berechnen der Stromstärke ist ja 6,42Stunden. Man muss sie in Sekunden umrechnen. Also:

s = (6*60*60) + (((60/100)*42)*60)
s = 23112 Sekunden

Daraus ergibt sich, wenn ich weiß, dass C = A * s ist:

14,338C = A * 23112 |:23112
A = 6,204*10^-4
A = 0,6204

Sprich: I = 0,6204 A -> 620,4 mA.

Zweite Aufgabe: Leiterwiderstand:

Formel:

Leiterwiderstand = spez. Widertand * (Länge in m / Querschnitt in mm²)

R = 0,016 * (65,59/690)
R = 0,016 * 0,09505797101
R = 1,520927536*10^-3 Ohm
R = 1,5209MiliOhm

Hab ich mich dort irgendwo verrechnet?

Wäre lieb, wenn ihr mal drüberschauen könntet

Rubberducky

Hallo Ihr,

Bin grad an einem Ts3 Admintool dran, wodurch man extern, ohne auf dem TS3 Server zu sein, per SSA Einstellungen machen kann, User sehen und kicken kann ect.

Nun bin ich gerade dabei, die Connect mit Hilfe von der TS3 UDF zu bauen.

Nun mein 1. Problem: Er kann nicht auf den Server connecten. Ich hab die richtig IP eingetragen, auch den richtigen Port. Jedoch sagt er mir jedesmal, dass die Ip oder der Port falsch sein.
Mein 2. Problem: Ich möchte gerne, dass solange die connection nicht besteht, dass man bei einem klick auf einen Tab (innerhalb meines Programmes) direkt wieder zum connectab zurückgeschoben wird.

Damit ihr euch das vorstellen könnt, hier mal mein bisheriger Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ts3.au3>
#Region ### START Koda GUI section ### Form=
$tooltitle= GUICreate("TS3 Admintool", 518, 455, 192, 125)
GUISetFont(9, 400, 0, "MS Sans Serif")
GUISetBkColor(0x000000)
$tab = GUICtrlCreateTab(10, 10, 488, 420)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$tab0 = GUICtrlCreateTabItem("Connect")
GUICtrlSetState(-1,$GUI_SHOW)
$serverip_label = GUICtrlCreateLabel("Serverip:", 64, 88, 48, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$serverport_label = GUICtrlCreateLabel("Serverport:", 56, 112, 59, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$serverip_input = GUICtrlCreateInput("", 120, 88, 145, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$serverport_input = GUICtrlCreateInput("9987", 120, 112, 57, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$admin_label = GUICtrlCreateLabel("Admin:", 72, 152, 45, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$password_label = GUICtrlCreateLabel("Password:", 64, 176, 54, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$admin_input = GUICtrlCreateInput("", 120, 152, 145, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$password_input = GUICtrlCreateInput("", 120, 176, 145, 22, $ES_PASSWORD)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$connect_button = GUICtrlCreateButton("Connect", 48, 240, 137, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$disconnect_button = GUICtrlCreateButton("Disconnect", 200, 240, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$tab1 = GUICtrlCreateTabItem("Users")
$tab2 = GUICtrlCreateTabItem("Files")
$tab3 = GUICtrlCreateTabItem("Server")
$tab4 = GUICtrlCreateTabItem("Infos")
GUICtrlCreateTabItem("")
;GUICtrlCreateLabel("Copyright by Schrubber @2010", 354, 434, 186, 16)
;GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Startvariablen
$connected = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $connect_button
if(GUICtrlRead($serverip_input) = "") Then
MSGBOX(262144,"Fehler!", "Sie haben keine Serverip angegeben.")
elseif(GUICtrlRead($serverport_input) = "") Then
MSGBOX(262144,"Fehler!", "Sie haben keinen Serverport angegeben.")
elseif(GUICtrlRead($admin_input) = "") Then
MSGBOX(262144,"Fehler!", "Sie haben keinen Admin angegeben.")
elseif(GUICtrlRead($password_input) = "") Then
MSGBOX(262144,"Fehler!", "Sie haben kein Password angegeben.")
Else
_TS3connect($serverip_input, $serverport_input)
if(@error) Then
MSGBOX(262144, "Fehler!", "Die IP oder der Port ist falsch." & @error)
Else
_TS3login($admin_input, $password_input)
if(@error = 1) Then
MSGBOX(262144, "Fehler!", "Login fehlgeschlagen.")
elseif(@error = 2) Then
MSGBox(262144, "Fehler!", "Ihr Account wurde gesperrt.")
Else
$connected = 1
EndIf
EndIf
EndIf

Case $disconnect_button
$connected = 0
_TS3logout()
_TS3quit()

Case $tab1
if($connected = 0) Then
MSGBOX(000262144, "Fehler!", "Sie sind mit keinem Server verbunden!")
GUICtrlSetState($tab0,$GUI_SHOW)
Else
MSGBOX(1, "Test", "^^")
EndIf

EndSwitch
WEnd

Bin wie immer über jede Hilfe froh

Rubberducky

Wenn ich den Songtext kennen würde, hätt ich mir den Song ja selber ergooglet

Ich kenne halt nur nen Teil vom Video, mehr net

Hallo

Und zwar suche ich ein Video, wo zum Ende hin so ein Typ auf die Straße geht, und älter wird / zudem dick und wieder dünn.

Kennt jemand von euch das Video? Ist so ca 1-2 Jahre alt

Danke im vorraus,
Rubberducky.

Gefunden

2 Brothers on the 4th floor - Dreams

Hallo Ihr,

Ich suche mal wieder einen Song.
Und zwar ist er irgendwie was wie Techno, Trance oder so was. Auf jeden Fall elektronisch.

Und zwar singt dort eine Frauenstimme etwas wie "Dreams get ........" und "Dreams comes true" oder so was. Bin mir bei den Textpassagen nicht 100% sicher, aber finde bei Google nichts

Wäre lieb, wenn ihr mir auch hier wieder helfen könntet.

Rubberducky

Danke!

Ich wusste, auf euch ist verlass

Hallo Ihr,

Heute brauch ich eure Hilfe mal außerhalb von AutoIt

Und zwar geht es um folgendes Video, bzw. Lied.

http://www.youtube.com/watch?v=4xfyFzD_AfA

Könntet ihr mir sagen, wie das Lied heißt?

Wäre euch sehr verbunden

Rubberducky

Lol gut
Dann werd ich mich da mal durchlesen.

Mal ne kleine Frage nebenbei:

Zitat

Beispiel

[autoit]

$var = IniReadSection("C:\Temp\meineDatei.ini", "sektion2")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
For $i = 1 To $var[0][0]
MsgBox(4096, "", "Schlüssel: " & $var[$i][0] & @CRLF & "Wert: " & $var[$i][1])
Next
EndIf

[/autoit]

Alles anzeigen

So stehts in der Hilfe, aber wenn ich das genau so nutze kommt bei mir:

Zitat

D:\AutoIt3\Include\Rundmail.au3 (71) : ==> Subscript used with non-Array variable.:
For $i = 1 To $var[0][0]
For $i = 1 To $var^ ERROR

Hallo Ihr,
Ich bin grad an einem Rundschreib-Tool dran.
Mein bisheriger Code:

Nun soll in der mail.ini Datei eine Section angelegt werden mit dem namen "alle". Dort werden dann alle Addy´s untereinander geschrieben.

Meine Frage: Wie muss ich das machen, dass er jede einzelne Zeile dieser Ini-Datei ließt, und diese Addy dann als $toadress nimmt, das aber bei JEDER Mailadresse?
Habe dazu keine Idee

Danke
Rubberducky

Ich wollt ja nicht das Ergebnis wissnem sondern ob ich das richtig verstanden hab

Das heißt im Umkehrschluss:

Zitat

1011 -> 11
1101 -> 13

0110 -> 6

Also lässt sich dadurch jeweils der Fehldende Teil berechnen, egal ob Schlüssel, Text oder Verschlüsselung?

Hallo

Ich hab mich mal mit der Funktion BitXOR beschäftigt. Diesmal aber nicht auf de Anwendung, sondern auf die Funktionsweise.

Ich bin nun zu diesem gekommen.

Man hat 2 Argumente.
Argument1 = 6
Argument2 = 13

Diese vergleicht die Zahlen im Binärsystem.

Argument1 -> 0110
Argument2 -> 1101

Nun vergleicht er, wie sich die Zahlen zueinander verhalten:
0110
1101
_____

Wo sind unterschiede?

1011 -> 11

Also ist der Schlüssel, der dabei raußkommt, das Zeichen 1011.

Oder irre ich mich da?

Danke

Gut, hab mich für die von Andy beschriebene XOR Verschlüsselung entschieden.

Funktioniert alles perfekt, wollte dort nun ne Mail-Funktion einbauen.
Habe dort auch alles hinbekommen (mit kleinen anfänglichen Problemen), nur ist mein Problem:

Es wird kein Schlüssel mehr generiert??
Ich kann da so oft draufdrücken, wie ich lustig bin, da kommt kein Schlüssel mehr

Wäre für jede Hilfe dankbar
Rubberducky

Edit:
Hat sich erledigt. Hatte die Variable key 2x deklariert, obwohl sie eigentlich unabhängig voneinander Werte haben sollten.
Kann geclosed werden

Global $array[5]

Du erstellst einen Array, der 5 Felder hat.
0,1,2,3,4,5

Wenn du dort nur eine 4 reinschreibst, erstellt er nur einen Array mit der Größe 4 (0,1,2,3).

Wenn ich nun die $b_trace 1 setze, wie sehe ich dann nun die Trace?

Hallo Ihr,

Ich habe vor, in mein Programm eine automatische Mail-Versandfunktion einzubauen.
Nun habe ich auf der Hilfeseite den Code einfach kopiert, um ihn zu testen.
Habe dort dann meine Daten eingefügt, doch er gibt mir immer ErrorCode 50 aus, was ja heißt, dass er keine Session Session aufbauen kann.

Ich weiß nicht, woran es liegt. der SMTP is richtig.

Mein Code:

$s_SmtpServer = "mail.gmx.net"
$s_FromName = "Tim"
$s_FromAddress = "lol@rofl.com"
$s_ToAddress = "schrubber@uwcrew.eu"
$s_Subject = "Meine Test UDF"
$s_Body = "Mein Text"
$Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Erfolg!", "Die E-Mail wurde versandt")
Else
MsgBox(0, "Fehler!", "Das versenden der E-Mail schlug fehl. Fehlercode: " & $err)
EndIf

Könnt ihr mir vll sagen, warum?

Rubberducky