Help vb6 remote admin tool

Discussion in 'Visual Basic ( VB )' started by brownpinoy88, Oct 27, 2007.

  1. brownpinoy88

    brownpinoy88 New Member

    Joined:
    Oct 27, 2007
    Messages:
    4
    Likes Received:
    0
    Trophy Points:
    0
    ok i made a trojan in vb6 then only probelm am having is i got the code for screenshot to work. and the server sends the screenshot data back to my client. but what am trying to do is get that screenshot on my screenshot form. how would i send the screenshot data that i recived from the server to my screenshot form sorry if its not too clear. please help i would greatly appericiate it thanks!!
     
  2. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,375
    Likes Received:
    388
    Trophy Points:
    83
    As I can understand you are trying to send some image data from your server to your client and what you can do is send the data always in say jpeg format or something which both your client and server can understand and then save the data from the client into some temp location and then display the screen shot into your desired area.

    I hope I have understood the problem correctly.
     
  3. brownpinoy88

    brownpinoy88 New Member

    Joined:
    Oct 27, 2007
    Messages:
    4
    Likes Received:
    0
    Trophy Points:
    0
    well thats not really what i was asking but here ill try explain it again.

    okay so i made a client and server program both of them have winsock. but what am tryin to do is get my server to send me back data to the client. and from the client i want to put the data to a screenshot form . but i don't know exactly how i would send it to the form i want without putting another winsock on it. sorry if its not clear. heres my code at the bottom:


    CLIENT SIDE:
    Private Sub sock1_DataArrival(ByVal bytesTotal As Long)

    Dim Data As String

    Call sock1.GetData(Data, vbString)

    If Data = "screenshot" Then
    screenshot <--- what would i put here to make it goto my screenshot form.
    End If

    End Sub

    SERVER SIDE:

    Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
    Dim x As String

    If x = "screenshot" Then
    keybd_event vbKeySnapshot, 0, 0, 0
    DoEvents

    keybd_event vbKeySnapshot, 0, &H2, 0
    sock1.SendData "screenshot"
    End If

    End Sub
     
  4. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,375
    Likes Received:
    388
    Trophy Points:
    83
    Add the code to display it.
     
  5. brownpinoy88

    brownpinoy88 New Member

    Joined:
    Oct 27, 2007
    Messages:
    4
    Likes Received:
    0
    Trophy Points:
    0
    thats the problem though i dont know what the code would be to display it .. sorry i am still kinda new with vb6 .
     
  6. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,375
    Likes Received:
    388
    Trophy Points:
    83
    How do we know what you have been using to display screen shot but we expect you to have some picture box or something similar.

    Now if you are new to VB first get your hands on the language rather than going for client server programming.
     
  7. brownpinoy88

    brownpinoy88 New Member

    Joined:
    Oct 27, 2007
    Messages:
    4
    Likes Received:
    0
    Trophy Points:
    0
    Nevermind I got it to :cool:
     

Share This Page

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice