Beiträge von x0r

  • Fremdes Fenster über Taskleiste(Priorität wie Taskmanager)

    Hi,

    versuch das mal (bei mir ist das Fenster on Top, wenn aktiv und wenn nicht aktiv eben nicht on Top):

    [autoit]

    $win = "testing"

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

    if WinGetState($win,"") = 15 Then
    WinSetOnTop($win, "", 1)
    Else
    WinSetOnTop($win, "", 0)
    EndIf

    [/autoit]


    BTW: Toller Support von manchen.. Gemecker und Gemotze, sobald ein User zu blöde erscheint, Respekt!!!

    x0r

  • .ini datei von externen Server öffnen

    Hi,

    also wenn du Firmen-interne-"externe" Server meinst, da frag ich die ini einfach über den Pfad ab:

    [autoit]

    dim $ini = "\\192.168.10.4\arbeitsvorbereitung\remote\Settings.ini"
    if IniRead($ini,"start","run","") = 1 then GUICtrlSetState($run, $GUI_CHECKED)

    [/autoit]


    Ansonsten eben wie schon erwähnt runterladen und auswerten.

    Gruß
    x0r

  • Redliche Heimseite

    Cheater Dieter:

    jop, stimmt schon, ich hab selbst iOS :whistling: und komm auf diverse Seiten nicht drauf, weil ich direkt an sone Müll-Seite weitergeleitet werd. Da gibts dann Zuhause aber einen PC, der nur drauf wartet alles wegzublocken, was da nicht hingehört :thumbup:

  • Redliche Heimseite

    Zitat von Cheater Dieter

    Na immerhin schaltest du gekonnt Werbung... Beim Aufruf der Seite mit einem Mobilgerät (iOS) werde ich nach einigen Sekunden auf "scharf.mobi" weitergeleitet, so eine Seite, auf der leicht bekleidete Frauen auf Vorschaubildern ihre Tüten in die Kamera halten und die nur dem Zweck dient, den Besucher zu einem Abo in Höhe von 4,99€ die Woche zu verleiten. :thumbdown: :thumbdown: :thumbdown:


    ...und was kann ich dafür?

    Es ist 1. nicht meine Seite, also schalte ICH schonmal keine Werbung und 2. bin ich (wohl zu Unrecht) davon ausgegangen, dass Leute heute einen gescheiten Adblocker installiert haben.

    Kauf dir was mit gescheitem OS oder lass es bleiben und klick keine weiteren Links von mir an, so einfach ist das! :)

  • Redliche Heimseite

    Das ist kein Abklatsch, die von "Herrn Fack" ist tatsächlich die erste Seite, die ich um 1999 entdeckt hatte - ist halt eine Art "Remake", da Beepworld (oder wars Tripod?) damals zugemacht hatte.

  • GUI verschwinden lassen

    Hi,

    mal was kleines zum Jahresanfang:

    Spoiler anzeigen
    [autoit]

    ;gui verschwinden lassen

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

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

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

    $WinMain = GUICreate("WinMain", 633, 454, 192, 114)
    $trans = GUICtrlCreateButton("Transparent", 24, 24, 75, 25, $WS_GROUP)
    $size1 = GUICtrlCreateButton("Größe 1", 24, 112, 75, 25, $WS_GROUP)
    $size2 = GUICtrlCreateButton("Größe 2", 24, 190, 75, 25, $WS_GROUP)
    $size3 = GUICtrlCreateButton("Größe 3", 24, 268, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)

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

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

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

    Case $trans
    ;unsichtbar werden - ist von einem User "geklaut" :)
    For $i = 255 to 0 Step -15
    Sleep(50)
    WinSetTrans($WinMain,$WinMain,$i)
    Next
    Exit

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

    Case $size1
    ;größe ändern 1
    $arPos = WinGetPos($WinMain)
    $x = $arPos[3]
    for $i = $arPos[2] to 0 step -15
    WinMove($WinMain, "", $arPos[0], $arPos[1], $i, $x)
    $x -= 15
    sleep(1)
    Next
    Exit

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

    Case $size2
    ;größe ändern 2
    $arPos = WinGetPos($WinMain)
    for $x = $arPos[3] to 0 step -15
    WinMove($WinMain, "", $arPos[0], $arPos[1], $arPos[2], $x)
    sleep(1)
    Next

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

    $arPos = WinGetPos($WinMain)
    for $i = $arPos[2] to 0 step -15
    WinMove($WinMain, "", $arPos[0], $arPos[1], $i, $arPos[3])
    sleep(1)
    Next
    Exit

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

    Case $size3
    ;größe ändern 3
    $arPos = WinGetPos($WinMain)
    for $i = $arPos[2] to 0 step -15
    WinMove($WinMain, "", $arPos[0], $arPos[1], $i, $arPos[3])
    sleep(1)
    Next

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

    $arPos = WinGetPos($WinMain)
    for $x = $arPos[3] to 0 step -15
    WinMove($WinMain, "", $arPos[0], $arPos[1], $arPos[2], $x)
    sleep(1)
    Next
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Wie lasst ihr eure GUI's verschwinden?

    Gruß
    x0r

  • Textdatei in sql konvertieren

    Hi,

    Zitat

    Habe mir das script bisher angesehen und dafür reicht mein wissen nicht aus.

    dann lern es!

    Du kannst nicht immer andere Leute fragen, wenn du selbst was nicht hinbekommst - ok, "nicht hinbekommen" ist das eine, "gar nicht versuchen" das andere.

    >>>
    "Wer immer nur das tut was er schon kann, wird immer das bleiben was er ist!"
    - Henry Ford
    <<<

  • Sich selbst erweiterndes Input

    wie vorher schon geschrieben, sind die buchstaben nie gleich breit, von daher ändert es sich bei "j" zu lang und bei "O" zu kurz..

    du müsstest - um das zu beheben - eine buchstabenprüfung einbauen - aber auch das hatte ich bereits erwähnt..

    ...und ich hasse es, mich zu wiederholen :whistling:

    €dit:

    Zitat

    [...] (so genau kannst das eh nicht machen, da die Buchstaben unterschiedliche Breite haben (es sei denn, du fragst jeden vorher ab).

    Steht in Post Nummer 7 :D