CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 5 of 5

Thread: Dial up networking

  1. #1
    Join Date
    Jul 2002
    Location
    Cornwall, UK
    Posts
    3

    Angry Dial up networking

    Hi all,
    i am working on a program that uses the mapi controls in VB6 on a 98 machine to send mail and attachments invisibly.

    Everything works okay except that when the machine dials up it shows the dial up connection screen, even though it connects automatically, how do i stop this appearing?

    Any thoughts are more than welcome.

    TerryM

  2. #2
    Join Date
    Jun 2002
    Location
    Planet Earth
    Posts
    189
    do we get a copy of this trojan when its finished?
    Administrator at http://www.newbieslair.org
    Your source for windows XP information and the latest security threats and viruses and WAREZ and hacking and much more.

  3. #3
    Join Date
    Jul 2002
    Location
    Cornwall, UK
    Posts
    3
    Hi,
    it is not a trojan, it is a program to allow users to send video or photos of themselves to other people, i just dont like the dial up box coming up and thought that someone must know how to stop it happening.

  4. #4
    Join Date
    Jul 2000
    Location
    Milano, Italy
    Posts
    7,726

    This seems to work on win2000

    Code:
    Dim strMessage As String, strSubject As String
        strMessage = "Test mail from vb"
        strSubject = "Hello there!"
        MAPISession1.UserName = "yourprofile"
        MAPISession1.Password = "yourpassword"
        MAPISession1.SignOn
        MAPIMessages1.SessionID = MAPISession1.SessionID
        MAPIMessages1.Compose
        MAPIMessages1.RecipAddress = "theAddressYouwantTomailTo@yahoo.it"
        MAPIMessages1.MsgNoteText = strMessage
        MAPIMessages1.MsgSubject = strSubject
        
        MAPIMessages1.ResolveName
        MAPIMessages1.Send False
    ...at present time, using mainly Net 4.0, Vs 2010



    Special thanks to Lothar "the Great" Haensler, Chris Eastwood , dr_Michael, ClearCode, Iouri and
    all the other wonderful people who made and make Codeguru a great place.
    Come back soon, you Gurus.

  5. #5
    Join Date
    Jul 2002
    Location
    Cornwall, UK
    Posts
    3

    Did not work

    Hi,
    sorry i took so long getting back, work got in the way

    I tried the code you sent, but i still get the dial up box and the message sending boxes on the screen when the program dials out.
    Any more ideas would be very gratefully received.

    Here is my present code:
    Private Sub Command1_Click()
    card = "C:\e-box\postcards\temp1.jpg"
    photo = "C:\e-box\postcards\pcardphoto.jpg"
    video = "C:\e-box\video\sample.avi"
    mapSess.DownLoadMail = False
    'mapSess.LogonUI = False
    'mapSess.SignOn
    'mapSess.NewSession = True
    mapSess.UserName = "terrym"
    mapSess.Password = "password"
    mapSess.SignOn
    mapMess.SessionID = mapSess.SessionID
    Text1.SetFocus
    If Text1.Text = "" Then
    MsgBox ("you must enter a valid mail address in the first box")
    Text1.SetFocus
    Else
    recipient = Text1.Text + ">"
    End If
    Text2.SetFocus
    If Text2.Text <> "" Then
    recipient = recipient + "," + "<" + Text2.Text + ">"
    Else
    Text4.SetFocus
    End If
    Text3.SetFocus
    If Text3.Text <> "" Then
    recipient = recipient + "," + "<" + Text3.Text
    End If
    Text4.SetFocus
    subject = Text4.Text
    RichTextBox1.SetFocus
    message = RichTextBox1.Text
    mapMess.MsgIndex = -1
    mapMess.RecipAddress = recipient
    mapMess.MsgSubject = subject
    mapMess.MsgNoteText = message
    If email2.Tag = "photo" Then
    mapMess.AttachmentPathName = photo
    End If
    If email2.Tag = "video" Then
    mapMess.AttachmentPathName = video
    End If
    If email2.Tag = "card" Then
    mapMess.AttachmentPathName = card
    End If
    'mapMess.Send False
    'mapSess.SignOff
    mapMess.ResolveName
    mapMess.Send False
    Unload Me
    controller.Tag = ""
    Form1.Enabled = True
    Form1.SetFocus
    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


Windows Mobile Development Center


Click Here to Expand Forum to Full Width




On-Demand Webinars (sponsored)