Beiträge von letsgo

Zitat

[...] was ich aber nicht weiter schlimm finde, anfangs dachte ich, das wäre beabsichtigt.

Dachte ich zuerst auch und ich finde es sieht sogar ganz schick aus

Ich benutze 1366x768, was mir auch unter AutoIt angezeigt wird.
Unter 1360 funktioniert es aber

Ich finds sehr gut (idee sowie Umsetzung) allerdings sollte man 2 Dinge noch erbessern
1. Noch eine Pause einbauen, da bei mir (win7) das Auswahlfenster noch halbtransparent zu sehen ist (siehe Anhang)

2. Das X-Auswahl-Combo-Gedöns wird nicht angezeigt und das Programm stürtzt nach Beenden der Auswahl-GUi ab, sofern man nicht in Zeile 111 die Zahl manuell hinschreibt
Fehlermeldung:

Spoiler anzeigen

C:\Users\LetsGo\Desktop\Screensaver.au3 (22) : ==> Array variable subscript badly formatted.:
Global $iB = @DesktopWidth, $iH = @DesktopHeight, $h_USER32_DLL = DllOpen('USER32.dll'), $aImg[$Split_X][$Split_Y][4], $iB_ = $iB / $Split_X, $iH_ = $iH / $Split_Y, $hWND_Desktop = _WinAPI_GetDesktopWindow(), $hDC_Desktop = _WinAPI_GetDC($hWND_Desktop), $vImg_Capture = _Image_Create($iB, $iH), $hGUI, $hDC_GUI, $vImg_Backbuffer, $hBackbuffer, $Schiebebild[5] = [0, 0, 0, False, 0]
Global $iB = @DesktopWidth, $iH = @DesktopHeight, $h_USER32_DLL = DllOpen('USER32.dll'), $aImg[^ ERROR

Vieleicht solltest du auch dazu schreiben, was du alles kannst (Grundlagen, GDI+,TCP,Spiele-Physik) und wie du es dir vorstellst (da wird wahrscheinlich ein eigener Server benötigt), denn dein Registrierungsdatum und deine andere Frage sprechen nicht sehr von einem Experten (es tut mir natürlich leid, wenn ich flasch liege)

Also Dateien Kopieren geht mit

[autoit]

FileCopy(source,destination)

[/autoit]

Und es kann immer nur das gleiche geschrieben werden, wenn du immer nur ClipGet abfragt. Das geht mit einer For Schleife besser

[autoit]

For $n=1 to 4
IniWrite ( "a.ini", "1", "reihe"&$n,$n)

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

next

[/autoit]

Dann muss man es eben anpassen
_FileCountLines liefert die Anzahl der Zeilen
Nun erstellt es für jede Zeile ein Input und passt die GUI automatisch an.
Sonst noch Wünsche?

[autoit]

#include <String.au3>
#include <File.au3>
Guicreate('Test',_FileCountLines(@TempDir&"\Data.txt")*75+50,200)
For $n=1 to _FileCountLines(@TempDir&"\Data.txt")
$file=FileReadLine(@TempDir&"\Data.txt",$n)
$str=_StringBetween($file,':','')
GuictrlCreateInput($str[0],($n-1)*75+25,30,70)
next
guisetstate()
While 1
$msg=GuigetMsg()
if $msg=-3 then exit
wend

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

Es müsste so funktionieren.
_StringBetween liefert das Ergebniss zwischen dem Doppelpunkt und dem Zeilenende
Bei StringSplit ist 'A-Z' scon falsch, da AutoIt nach 'A-Z' sucht und nicht nach 'ABCDEFG...XYZ'

[autoit]

#include <String.au3>
Guicreate('Test',400,200)
For $n=1 to 4
$file=FileReadLine(@TempDir&"\Data.txt",$n)
$str=_StringBetween($file,':','')
GuictrlCreateInput($str[0],($n-1)*75+50,30,70)
next
guisetstate()
While 1
$msg=GuigetMsg()
if $msg=-3 then exit
wend

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

Also 8GB Ram brauchste eigentlich nie. Nimm da erst mal nen 4 GB Block und tu vlt. deine 2 GB dazu wenn die kompatibel sind

Ich würde erstmal mit _InetGetSource arbeiten, das ist auch wahrscheinlich schneller & besser verständlich, als den iExplorer zu starte

Ich hab vor kurzem eine eher grafisch ausgerichtete Versiob mit Crypt.au3 gemacht. Sie ist allerdingns noch (lange) nicht fertig und verlangt auch einen Benutzernamen.

(Vorher mit der PM.au3 ein paar Benutzernamen & Passwörter machen)

Ich hab erst ne GUi gemacht, die dann sichtbar und ein label drauf gemacht, dass den Hinweis zeigt. In der while schleife frag ich alle par Sekunden, ob auf -3 (also den X button) gedrückt wurde. Wenn ja wird es beendet, wenn nein, dann prüft es wieder.
Und Adliubregister macht alle 540.000 millisekunden (also alle 540 Sekunden) die Funktion _Main, die dann die Mausklicks macht.

Bei Fragen frag ruhgi oder lies dir die Hilfe durch: http://translation.autoit.de/onlinehilfe/index.php

@ uN1ge ja
@var$ Du hast adlib mit 540 MILLISEKUNDEN!!!
Richtig und mit beenden GUI ist es so:

[autoit]

GuiCreate('Button GUI',200,100)
GuiSetState()
GuictrlcreateLabel('Zum beenden auf das X der GUI Klicken',10,10)

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

AdlibRegister ("_Main", 540000)
_Main ()
While True
if GuiGetMsg()=-3 then exit
sleep(10)
WEnd
Func _Main ()
MouseClick("left", 652, 234)
MouseClick("left", 1032, 360)
MouseClick("left", 652, 234)
MouseClick("left", 1014, 637)
MouseClick("left", 561, 536)
MouseClick("left", 652, 234)
EndFunc

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

zeile 24 ist unnötig. Entweder Zeile 24 weglöschen oder ganz ändern mit

[autoit]

$file = FileOpen(@ScriptDir &"\Befehle.txt", 0)
$befehle1 = FileRead ($file)
GUICtrlSetData ($Edit1, $befehle1)
FileClose($file)

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

Edit: Ich persönlich machs nie mit Fileopen/close das find ch unnötig (und ich bin schreibfaul, deshalb werde ich diesen Satz nicht zu Ende

Probier es mal mit:

Spoiler anzeigen

[autoit]

#include "QuickDraw.au3"
#include "WindowsConstants.au3"

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

$GFX_Gui = GUICreate('Meine GUI',800,600, 0, 0)
GUISetBkColor(0x000FF0)
_QuickDraw_CreateSurface($GFX_Gui, 0, 0, 800, 600)
GUIDelete($GFX_Gui)
$GFX_Gui = GUICreate('Meine GUI', @DesktopWidth,@DesktopHeight,0, 0,$WS_POPUP+@SW_MAXIMIZE)
GUISetBkColor(0x000000,$GFX_GUI)
_QuickDraw_CreateSurface($GFX_Gui, 0, 0, 800,600)
GUISetState()

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

_QuickDraw_SetLineWidth( 10 )
_QuickDraw_SetRenderTarget( $Normal_Buffer)
$Font = _QuickDraw_CreateFont( 'Arial')

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

While ( _QuickDraw_Running() And (GUIGetMsg() <> -16))
_QuickDraw_ClearBuffer(0xFF000000)
$Position = _QuickDraw_GetMousePos()
_QuickDraw_SwapBuffers()
WEnd

[/autoit]

Meinst du so?

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

Main()
if IsDeclared($main) then
MsgBox(0,0,'Die Variabel ist deklariert!')
else
MsgBox(0,0,'Die Variabel wurde nach der Funktion gelöscht (=lokal)')
EndIf

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

Func Main()
$main=42
EndFunc

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

Also die IP bekommt raus mit (meistens reicht das erste)

[autoit]

@IPAddress1
@IPAddress2
@IPAddress3
@IPAddress4

[/autoit]

Den Computernae bekommt man heraus mit

[autoit]

@ComputerName

[/autoit]

Also die letzten 4 Zeichen wegmachen?

[autoit]

StringLeft('kostenlos',StringLen('kostenlos')-4)

[/autoit]

Zitat von tkausl

[autoit]

MessageBox(0, "", "Hallo :-)")

[/autoit]

[Blockierte Grafik: http://www.leidtwolf.de/smilies/smilie_kopfschuss_2.gif]
Ohne Worte ...

chip Also ein halbes Jahr ist doch nicht schlimm . In "deinem" Forum ( forum.chip.de ) ist mal ein Thread nach fast 10 Jahren geschändet worden

War bei mir mal so das nach ca. 1 Sekunde der Bios eingefrohren ist.
Nimm mal den Akku raus und das Netzteil weg. Dann drück 10 Sekunden auf den startknopf (und erwarte nicht, dass er da startet )
Nimm den Akku wieder rein und versuche mal zu starten

Funktionierts?

Spoiler anzeigen

Du wirst dich wundern, wie oft das Funktioniert
YES I DID IT!

Funktionierts nicht?

Spoiler anzeigen

Less bitte den oberen Spoiler nicht durch

EDIT: Wieder ein Mysterium des Alltags, der Laptop startet nicht, aber kommst trotzdem ins Internet