AnGelBot-Portal² - FlashFXP Status Script 1.0

Description:
!flashfxp zeigt euch den aktuellen DownLoad und Uploadstatus eures FlashFXP an.
Sollte das Programm mit einem Passwort geschützt sein, funktioniert dieses Script nicht. Sobald es mit einem Passwort geschützt wurde, wird die benötigte Datei verschlüsselt.

Code:

'+-------------------------------------+ 

'| FlashFXP Status Script 1.0 © by sts 

'|

'| Don`t change the author! 

'| 

'| Website : www.AnGelBot-Portal.de

'|-------------------------------------+

'| PartyLine Setup ------------[x] 

'| Anlegung einer INI-Datei ---[x] 

'| Channeleinstellungen ------ [ ] 

'|-------------------------------------+ 

'##############Einstellungen##################

Const Trigger = "flashfxp"        'Konfigurationtrigger auf der Partyline

'###############Don't Change!!################

Const INIFile = "sFlash.ini"

Const ScriptVersion = "FlashFXP Status Script 1.0 © by sts"

Const ScriptName = "FlashFXP Status Script 1.0 © by sts"

Sub Init()

  SpreadFlagMessage 0, "+m", "3 " & ScriptVersion

  Hook "Commands" 

  Hook "Chan_Msg"

  AddCommand "." & Trigger, Cl_Mas, "+m", "2*** ." & Trigger & "##14Zeigt das " & ScriptName & " Setup in dem der Path,##14 zu eurem FlashFXP angegeben wird." 

  SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." & Trigger & " ein." 

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  Dim UL, DU, All, fnum, Infos, Path

  If LCase(Param(Line,1)) = "!flashfxp" Then

    Path = ReadINIString("Settings", "dir", "[Kein dir angegeben]", INIFile)

    If Path = "[Kein dir angegeben]" Then

      Sendline "PrivMsg " & Chan & " : Script nicht konfriguriert.",3

    Else

      Infos = ReadBinaryFile(Path & "Stats.dat")

      fnum = FileOpen("flash.ini", FA_Append) 

        FileWriteln fnum, Infos

      FileClose(fnum)

      UL = Round(ReadINIString("#Total#", "FU", "", "flash.ini") / 1024 / 1024 / 1024, 3)

      DU = Round(ReadINIString("#Total#", "FD", "", "flash.ini") / 1024 / 1024 / 1024, 3)

      All = UL + DU

      Sendline "PrivMsg " & Chan & " :FlashFXP Stats: Download: " & DU & " GB Upload: " & UL & " GB Gesamt: " & All & " GB",3

      FileDelete "flash.ini"

    End If  

  End If 

End Sub

Sub Commands(vSock, RegUser, Flags, Line) 

  If LCase(Param(Line, 1)) = "." & Trigger Then 

    GrabUser vSock, "" & ScriptName & " Setup", "StatusSetup" 

    SetSockTag vSock, "MainMenu" 

    StatusSetup vSock, RegUser, Flags, "" 

  End If 

End Sub 

Sub StatusSetup(vSock, RegUser, Flags, Line) 

  If Param(Line, 1) = "0" Then 

    TU vsock, "10*** Saving settings..." 

    ReleaseUser vSock 

    Exit Sub 

  End If 

  Select Case LCase(Param(GetSockTag(vSock), 1)) 

    Case "mainmenu" 

      TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1_|_____0,1www.AnGelBot.dyndns.org1,1____|__4,1©4,14©4,15©4,0sts4,15©​4,14©4,1©" 

      TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 0,1 " & ScriptName & " Setup 4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

      TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___|________________________________4,1©4,14©4,15©4,0sts4,15©4,14©4,​1©"

      TU vSock, " " 

      TU vSock, "Willkommen im Setup vom " & Version & "!" 

      TU vSock, "Du befindest dich im Hauptmenü." 

      TU vSock, " " 

      TU vSock, "Aktuelles Dir: " & ReadINIString("Settings", "dir", "[Kein dir angegeben]", INIFile)

      TU vSock, " "

      TU vSock, "- set dir <Dir> Um den Path zu eurem FlashFXP anzugeben. [Bsp. C:\Programme\FlashFXP\]" 

      TU vSock, "" 

      TU vSock, "- 0 um zurück auf die Partyline zu kommen." 

      SetSockTag vSock, "MainMenuOption" 

    Case "mainmenuoption" 

      Select Case LCase(Param(Line, 1)) 

        Case "set" 

          If LCase(Param(Line, 2)) = "dir" Then 

            WriteINIString "Settings", "dir", GetRest(Line,3), INIFile 

            TU vSock, "3*** Dir geändert zu: " & GetRest(Line,3) 

          Else 

            TU vSock, "5*** Syntax: set dir <dir [Bsp. C:\Programme\FlashFXP\]>" 

          End If 

      End Select 

  End Select 

End Sub 

Function ReadBinaryFile(FileName)

  Const adTypeBinary = 0

  Dim BinaryStream

  Set BinaryStream = CreateObject("ADODB.Stream")

  BinaryStream.Type = 1

  BinaryStream.Open

  BinaryStream.LoadFromFile FileName

  ReadBinaryFile = CStr(BinaryStream.Read)

  Dim I, S

  For I = 1 To LenB(ReadBinaryFile)

    S = S & Chr(AscB(MidB(ReadBinaryFile, I, 1)))

  Next

  ReadBinaryFile = S

End Function

erstmal danke, ABER

[02:39:47] [ Postal ] . *** Scripting error in 'fxp.asc':
[02:39:47] [ Postal ] . Error : 3716 (Die Sicherheitseinstellungen dieses Computers lassen den Zugriff auf eine Datenquelle in einer anderen Domäne nicht zu.)
[02:39:47] [ Postal ] . Position: Line 105, Column 2
[02:39:47] [ Postal ] . Excerpt : BinaryStream.LoadFromFile FileName
[02:39:47] [ Postal ] . Command : Chan_msg "#fwc", "NourisH^ZzzZZzz", "NourisH", "!flashFXP"
[02:39:47] [ Postal ] . *** End of error message

Wie änder ich meine Sicherheitseinstellungen und ist das wirklich nötig?

Probier mal folgendes

Füge mal in der AnGel.ini unter [Others] AllowCreateObject=yes ein.

Vllt. hilfts

Das sicherheitsproblem is weg, aber jetzt findet er die datei nicht...

[15:55:24] [ Postal ] . *** Scripting error in 'fxp.asc':
[15:55:24] [ Postal ] . Error : 3002 (Die Datei konnte nicht geöffnet werden.)
[15:55:24] [ Postal ] . Position: Line 105, Column 2
[15:55:24] [ Postal ] . Excerpt : BinaryStream.LoadFromFile FileName
[15:55:24] [ Postal ] . Command : Chan_msg "#fwc", "NourisH", "NourisH", "!FlashFXP"
[15:55:24] [ Postal ] . *** End of error message

Hast du im Setup den Path zu dein FlashFXP angeben?

hm, naja der setup wollt irgendwie nicht da hab ichs von hand eingetragen..

Code:

Path = ReadINIString("Settings", "dir", "C:\Programme\FlashFXP", INIFile)

Probier mal den Path: C:\Programme\FlashFXP\

harr!
es geht

ergebensten dank!