Beiträge von RaubEl

  • Der Remoteserver hat einen Fehler zurückgegeben: (530) Nicht angemeldet.

    Hi Leute,
    ich bekomme hier immder den Error:
    Der Remoteserver hat einen Fehler zurückgegeben: (530) Nicht angemeldet.



    If MsgBox("Ein Update wurde gefunden! Möchten sie es installieren?", MsgBoxStyle.YesNo) = vbYes Then
    wc.Credentials = New Net.NetworkCredential("raubel", "PW")
    Dim path As String = "ftp://raubel.bplaced.net/Unbenannt-1.png"
    Dim version As Integer = wc.DownloadString("ftp://raubel.bplaced.net/version.html")


    My.Computer.Network.DownloadFile(path, Application.StartupPath & "/[Update" & version & "]" & "/Keybinder")


    End If

  • Chatlog auslesen mit VB

    hi Leute,
    Ich will einen Anrufbeantworter in VB für einen GTA-Server machen. Dafür muss ich die Chatlog überprüfen,
    ob nach einem "/pickup" ein "/hangup" oder ein "Dein Gesprächspartner hat aufgelegt" kommt.
    Wie kann ich das alles aus der Chatlog auslesen?


    LG
    RaubEl

  • VB Datei auslesen

    hi Leute,
    Ich will einen Anrufbeantworter in VB für einen GTA-Server machen. Dafür muss ich die Chatlog überprüfen,
    ob nach einem "/pickup" ein "/hangup" oder ein "Dein Gesprächspartner hat aufgelegt" kommt.


    LG
    RaubEl

  • VBkeybinder failt

    Hi Leute,
    Ich habe einen Keybinder in VB geschrieben.
    Nach ein Paar mal testen fängt er an den Befehl zu spammen.



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If GetAsyncKeyState(Keys.NumPad1) Then
    My.Computer.Keyboard.SendKeys("t/motor {ENTER}")
    My.Computer.Keyboard.SendKeys("t/licht {ENTER}")
    End If
    End Sub

  • Keybinder mit VB spammt

    Hi Leute,
    Ich habe einen Keybinder in VB geschrieben.
    Nach ein Paar mal testen fängt er an den Befehl zu spammen.



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If GetAsyncKeyState(Keys.NumPad1) Then
    My.Computer.Keyboard.SendKeys("t/motor {ENTER}")
    My.Computer.Keyboard.SendKeys("t/licht {ENTER}")
    End If
    End Sub

  • Faherer und Beifahrerabfrage

    wie kann ich abfragen, ob jemand ausgestiegen ist? :)



    Edit:


    ocmd:eject(playerid, params[])
    {
    new pID;
    new veh = GetPlayerVehicleID(playerid); // wenn eigene vehicleid noch nicht bekannt, erstmal herausfinden.
    if(sscanf(params,"u",pID))return SendClientMessage(playerid,blau,"/eject [Player]");
    for(new i=0;i<MAX_PLAYERS;i++)//Nun gehen wir alle spieler durch
    {
    if(IsPlayerInVehicle(i))
    {
    if((i!=playerid)&&(IsPlayerInAnyVehicle(i))
    {
    new vehPID = GetPlayerVehicleID(i);
    if(vehPID == veh)
    {
    RemovePlayerFromVehicle(pID);
    }
    }
    }
    }
    return 1;
    }


    folgende Errors:



    C:\Users\Elia\Desktop\Server\gamemodes\Reallife.pwn(252) : warning 202: number of arguments does not match definition
    C:\Users\Elia\Desktop\Server\gamemodes\Reallife.pwn(255) : error 028: invalid subscript (not an array or too many subscripts): "IsPlayerInAnyVehicle"
    C:\Users\Elia\Desktop\Server\gamemodes\Reallife.pwn(256) : error 001: expected token: "}", but found "new"
    C:\Users\Elia\Desktop\Server\gamemodes\Reallife.pwn(256) : error 003: declaration of a local variable must appear in a compound block
    C:\Users\Elia\Desktop\Server\gamemodes\Reallife.pwn(256) : warning 217: loose indentation
    C:\Users\Elia\Desktop\Server\gamemodes\Reallife.pwn(256) : error 017: undefined symbol "vehPID"
    C:\Users\Elia\Desktop\Server\gamemodes\Reallife.pwn(256) : fatal error 107: too many error messages on one line



    PS: Quelltextfunktion ging nicht