Fast Net Loader 1.03

[X360 Andy]

Dann einfach unter den Einstellungen "www.mein-webspace.tld/http-docs/" eingeben.

Und schon sollte er den richtigen Link ausgeben.

EDIT
Hab dich wohl falsch verstanden.
MIr würde jetzt nicht direkt eine "einfach" Lösung einfallen, jetzt ohne was zu änderen könnte man das über einen Sub FTP Zugang lösen, wenn du diese Möglichkeit auf deinem Webspace hast.

[TomS]

Ja. So kann man es machen. Aber nicht jeder hat diese Möglichkeit.

Einfach den Pfad, der am Ende ausgegeben wird, extra abfragen.

also "FTP-Root: /http-docs/" und "HTTP-Root: /"

[X360 Andy]

Viel spass mit der Verison 8.5

-Neues
-- Snipping Tool wurde eingebaut
-- FTP / Seiten Pfad sind nicht mehr abhängig
-- Skin Color Mixer (siehe Screen)
-- Sonstige kleine Verbesserungen


Screens
http://x360s-world.de/upmg/screens/Screen1.PNG
http://x360s-world.de/upmg/screens/screen2.PNG
http://x360s-world.de/upmg/screens/screen3.PNG
http://x360s-world.de/upmg/screens/screen4.PNG

Screen Bilder im ersten Post sowie Download Link

[TomS]

Der erste Screen in deinem letzten Posting geht. Im ersten Post geht gar keiner.

[X360 Andy]

Hab den Beitrag zuerst abgeschickt

Nun gehts

[TomS]

Viel spass mit der Verison 8.5
-- Snipping Tool wurde eingebaut
-- FTP / Seiten Pfad sind nicht mehr abhängig

Vielen Dank

Ein Minimierbutton für's Systray fehlt noch. Is intuitiver als das Menü^^

Und ein optionaler Eintrag ins Kontextmenü vom Explorer.

Dann bin ich rundum glücklich

Achja. Ne Tastenkombi um direkt das Snippingtool aufzurufen, wenn FNL im Tray versteckt ist

[X360 Andy]

Jop danke werde mein bestes veruschen

[X360 Andy]

Update.....
Kompletter Recode des Fast Net Loaders
Infos im ersten Post

[cxAlex]

Und Avira hat zugeschlagen:

non install\snipp.exe
Ist das Trojanische Pferd TR\Crypt.ZPACK.Gen

Ich tippe mal du verwendest UPX oder einen anderen Laufzeitpacker. Bitte nicht.

Gruß, Alex

PS: WinRar? Liefer doch 7z-a mit im Paket aus, dann hast du den Packer immer dabei und sogar nen freien noch dazu.

[X360 Andy]

Hab die Virenmeldung bereits Heute an Avira gesendet...

Ich denke eher das es an PNG Erstellung liegt.
Das wäre der "Trojaner" Code

Code: Alles auswählen

UsePNGImageDecoder()
UsePNGImageEncoder()


Procedure MakeDesktopScreenshot(ImageNr, x, y, Width, Height)
  hImage = CreateImage(ImageNr, Width, Height)
  hDC = StartDrawing(ImageOutput(ImageNr))
    DeskDC = GetDC_(GetDesktopWindow_())
    BitBlt_(hDC, 0, 0, Width, Height, DeskDC, x, y, #SRCCOPY)
  StopDrawing()
  ReleaseDC_(GetDesktopWindow_(), DeskDC)
  ProcedureReturn hImage
EndProcedure


W = 800
H = 600

ExamineDesktops()
DW = DesktopWidth(0)
DH = DesktopHeight(0)
red = 255


CreateImage(1, 200, 200)
CreateImage(2, 200, 200)
If OpenWindow(0, 100, 150, 291, 155, "X360´s Snipping Tool FNL Version", #PB_Window_SystemMenu | #PB_Window_Invisible)
  
  
  start = 1
  
  SetActiveWindow(0)
  Repeat
    WindowEvent = WaitWindowEvent(50)
    
    Select EventWindow()
      Case 0
        If start = 1
          start = 0
          SetSystemCursor_(LoadCursor_(0, #IDC_CROSS), #OCR_NORMAL)
          MakeDesktopScreenshot(1, 0, 0, DesktopWidth(0), DesktopHeight(0))
          
          OpenWindow(1, 0, 0, DW, DH, "Capturing", #WS_POPUP)
          
          StartDrawing(WindowOutput(1))

            DrawImage(ImageID(1), 0, 0)
          StopDrawing()
          
          Layer1_desktop = CreateImage(2, DW, DH)
          
          SetActiveWindow(1)
        EndIf
        
      Case 1
        Select WindowEvent
          Case #WM_MOUSEMOVE
            If drawbox And SettingCursor = 0
              
              If back = 1 : red + 1 : Else : red-1 : EndIf
              If red = 255 : back = 0 : EndIf
              If red = 100 : back = 1 : EndIf
              
              StartDrawing(WindowOutput(1))
                DrawImage(ImageID(1), 0, 0)
                DrawingMode(#PB_2DDrawing_Outlined)
                y2 = DesktopMouseY()
                x2 = DesktopMouseX()
                Box(x1, y1, x2-x1, y2-y1, RGB(red, 0, 0))
                Box(x1 + 1, y1 + 1, x2-x1, y2-y1, RGB(red, 0, 0))
              StopDrawing()
              
              SettingCursor = 1
              
            Else
              SettingCursor = 0
            EndIf
            
          Case #WM_LBUTTONDOWN
            
            y1 = DesktopMouseY()
            x1 = DesktopMouseX()
            
            drawbox = 1
            
          Case #WM_LBUTTONUP
            StartDrawing(WindowOutput(1))
              DrawImage(ImageID(1), 0, 0)
            StopDrawing()
            
            If x1>x2 : Swap x2, x1 : EndIf
            If y1>y2 : Swap y2, y1 : EndIf
            
            GrabImage(1, 6, x1, y1, x2-x1, y2-y1)
            
            drawbox = 0
            Break
            
        EndSelect
        
    EndSelect
  ForEver
EndIf

CloseWindow(0)
CloseWindow(1)

SetSystemCursor_(LoadCursor_(0, #IDC_CROSS), #OCR_NORMAL)
Screenpfad$ = InputRequester("Bildname", "Gib den Bildname für den Screen ein", "")

  SaveImage(6, "other\screenshots\"+Screenpfad$ + ".png", #PB_ImagePlugin_PNG)

Muss ich mir in ruhe nochmal anschauen das mit 7Zip