Beiträge von x0r

x0r

dann vergrößert man das control eben nach unten?

denkt halt mal nach, wenigstens ein bissl!

x0r

Weltfrieden wirds nie geben. Da sind immer welche dabei, die die absolute Kontrolle über alle/s haben wollen.

Mag jetzt zwar etwas krank oder makaber rüberkommen, aber wenn wirklich allen Menschen auf der Erde geholfen würde, sodass niemand mehr verreckt, gibts ne größere und schnellere Überbevölkerung als eh schon - und dann geht die Welt noch schneller den Bach runter als eh schon.

Denk(t) mal drüber nach.

x0r

x0r

was weiss ich, bei mir gehts:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

dim $start_size = 11
dim $font = "Arial"

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

dim $resize, $resize_old

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 80, 192, 114)
$Input1 = GUICtrlCreateInput("Input1", 16, 24, $start_size, 21)
GUICtrlSetFont(-1, 9, 400, 0, $font)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

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

$resize = StringLen(GUICtrlRead($Input1)) * 6

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

if $resize_old <> $resize then
GUICtrlSetPos($Input1, 16, 24, $resize + $start_size, 21)
$resize_old = $resize
EndIf
WEnd

[/autoit]

Eine Zeile angepasst, die Zahl um 1 erhöht (so genau kannst das eh nicht machen, da die Buchstaben unterschiedliche Breite haben (es sei denn, du fragst jeden vorher ab).

x0r

Zitat

Simon nörgelt, Simon nervt - aber Simon verbessert die Welt. Glaubt er.

...ist ein Satz auf der Rückseite vom Buch ~~"Vollidiot"~~ "Millionär" (Tommy Jaud) - gefällt mir, stimmt zu 100% - und ich heisse Simon!

x0r

dann bedient dich, editiers und bau um, ist open source

x0r

Welcome!

Vorsicht, Gemecker:

Spoiler anzeigen

Eine "Vorstellung" stell ich mir aber ein bissl anders vor

Gruß
x0r

x0r

Hi,

aus aktuellem Anlass (laut Shoutbox (ausser ich habs falsch interpretiert, egal! :D)):

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

dim $start_size = 20, $resize, $resize_old

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 80, 192, 114)
$Input1 = GUICtrlCreateInput("Input1", 16, 24, $start_size, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

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

$resize = StringLen(GUICtrlRead($Input1)) * 6

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

if $resize_old <> $resize then
GUICtrlSetPos($Input1, 16, 24, $resize + $start_size, 21)
$resize_old = $resize
EndIf

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

WEnd

[/autoit]

Funktioniert ganz gut, denk ich. Lässt sich sicherlich auch auf andere Controls ausweiten

Gruß
x0r

x0r

ein neuer Satz Motorradreifen - Dunlop Roadsmart 2

Den Vorgänger fahr ich seit 3 Jahren und bin voll begeistert, der neue soll aber noch besser sein, drum wird der getestet!

- Alternativ: Die Kohle dafür!

x0r

Hi,

du hast da noch

- Arrays

vergessen

x0r

[autoit]

AutoItSetOption("MouseClickDelay",<delay in ms>)
AutoItSetOption("MouseClickDelay",100)

[/autoit]

x0r

also hier in der Firma funktionierts. Einfach ganz normal die Einlog-Daten verwenden, ohne "Domain" oder solche Scherze.

Füg dir mal ein Beispiel an (ist schon bestimmt 2 Jahre her, dass ich das gebaut hab :))

Spoiler anzeigen

[autoit]

func sqlread()
local $str, $plz, $ort, $vorwahl, $tel, $bl
local $sqlCon
local $sqlVar

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

if GUICtrlRead($Radio1) = 1 then $select = "where Plz = " & GUICtrlRead($Input1)
if GUICtrlRead($Radio2) = 1 then $select = "where Ort = '" & GUICtrlRead($Input1) & "'"
if GUICtrlRead($Radio3) = 1 then $select = "where Vorwahl = " & GUICtrlRead($Input1)

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

$sqlCon = _MSSQL_Con("DNS-des-Servers","User","Password","Datenbank")

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

$sqlVar = $sqlCon.execute("SELECT * FROM Tabelle " & $select & " order by Plz;")

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

;~ $sqlVar = $sqlCon.execute("SELECT * FROM Tabelle;")

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

With $sqlVar
While Not .EOF
$id = .Fields("ID").value
$ort = .Fields("Ort").value
$plz = .Fields("Plz").value
$tel = .Fields("Vorwahl").value
$bl = .Fields("BL").value

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

while stringlen($plz) < 5
$plz = 0 & $plz
WEnd

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

if StringLeft($tel,1) <> '0' Then
$tel = 0 & $tel
EndIf

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

$str = $plz & chr(9)& $ort & chr(9) & $tel & chr(9) & $bl

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

;~ if StringLen($str) > 15 then GUICtrlSetData($output,GUICtrlRead($output) & $str & @CRLF)
FileWrite("temp.txt",$str & @CRLF)

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

.MoveNext
WEnd
EndWith
_MSSQL_End($sqlCon)
EndFunc

[/autoit]

Das war quasi mein erster MS-SQL-Abfrage-Test

(über mysql gehts viel schöner find ich)

€dit: So findest du wenigstens raus, ob die Connection überhaupt klappt - wegen der Windows Authentifizierung kannst dir danach noch Gedanken machen.

Gruß
x0r

x0r

es ging mir auch eher um "$server" und "$database" :]

x0r

Hi,

wie sieht dein Connection-String aus?

€dit: Ich benutze folgende Funktion aus der "mssql.au3" und es funktioniert:

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Function Name....: _MSSQL_Con
; Description......: Connect to a Database
; Syntax...........: _MSSQL_Con($scIP, $scUser, $scPass, $scDB)
; Parameter(s).....: $scIP = IP adress
; $scUser = User
; $scPass = Pass
; $scDB = Database
; Return Value(s)..: Success - Returns the Database-"handle"
;
;===============================================================================
Func _MSSQL_Con($scIP, $scUser, $scPass, $scDB)
Local $sqlCon
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("Provider=SQLOLEDB; Data Source=" & $scIP & "; User ID=" & $scUser & "; Password=" & $scPass & "; database=" & $scDB & ";")
Return $sqlCon
EndFunc ;==>_MSSQL_Con

[/autoit]

Gruß
x0r

x0r

tjaaaa...

hab auch lange gesucht/gewartet

x0r

Hi,

also wenn ich was zocke oder schreibe, sitzt meine Freundin meist daneben und zockt mit..

Da nervt mich oft ihre seltsame Musik im Game, aber das is ja nix, was sich nicht ohne Tools beheben liese

Ansonsten gute Lösung. Hatte mal einem Kollegen was gebaut, der viel mit dem "calc" arbeitet (hat einen Hotkey dafür). Wenn er den drückt, geht ein neuer Calc auf - allerdings auch, wenn schon einer offen ist - das Problem hab ich behoben

Gruß
x0r

x0r

Zitat

da spricht man nicht gleich von nem JDownloader...

hab ich auch nicht, ich hab geschrieben:

Zitat

klingt [...] ein bissl nach "JDownloader"

x0r

Hi,

du schreibst ziemlich seltsam.

Ausserdem: Schonmal nachgesehen, wieviel ein Programmierer die STUNDE verlangt?
Da kommst mit deinen 35€ nicht weit

P.S.: Wenn man das ganze FTP-Zeug weg lässt, klingt deine Beschreibung ein bissl nach "JDownloader", bzw wie irgendein P2P-Programm.

Gruß
x0r

x0r

kannst ja die datei-attribute der batch auf "versteckt" setzen, dann sieht man die nicht mehr xD

spass beiseite.. schätze mal dein ansatz ist nicht schlecht, hast du denn die sache mit "= -1" statt "= 0" versucht?
-> datei/ordner gelöscht = -1

x0r

so funktionierts doch und ob du jetz ne batch anlegst und danach wieder löscht, ist doch wurscht.
das script bleibt so lange stehen, bis die batch wieder geschlossen ist und eben der jeweilige löschvorgang beendet.

also warum "versuch"?

x0r

vielleicht eher nicht ganz optimal, wenn doch auch ziemlich interessant

[autoit]

dim $delbat = @ScriptDir & "\del.bat"
dim $delordner = @ScriptDir & "\test_delete"

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

FileWrite($delbat,"rmdir /s /q " & $delordner)

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

ShellExecuteWait($delbat)
MsgBox(0,"gelöscht",$delordner)

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

FileDelete($delbat)
MsgBox(0,"bat weg",$delbat)

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

und jetz schlagt mich bitte nicht

€dit die 300ste: klappt nur mit Batch -.-

Beiträge von x0r

Sich selbst erweiterndes Input

Weihnachtswünsche

Sich selbst erweiterndes Input

Ich grüß dann mal alle...

Sich selbst erweiterndes Input

Ich grüß dann mal alle...

Sich selbst erweiterndes Input

Weihnachtswünsche

Ganz neu und ganz unerfahren - wie geht man am besten ran?

Doppelklick funktioniert nicht immer. warum?

Verbindung zu MSSQL Server mit _sql.au3

Verbindung zu MSSQL Server mit _sql.au3

Verbindung zu MSSQL Server mit _sql.au3

"Ey dein geklicke geht mir auf die Nerven" - Script (Silent)

"Ey dein geklicke geht mir auf die Nerven" - Script (Silent)

HEUTE - Skript Erstellung / muss nicht neu erfunden werden...

HEUTE - Skript Erstellung / muss nicht neu erfunden werden...

Lokale Benutzer löschen

Lokale Benutzer löschen

Lokale Benutzer löschen