VB·¢ËÍÓʼþÎÊÌâ - .NET¼¼Êõ / VB.NET
·¢ËÍÓʼþ²¿·Ö´úÂëÈçÏ£º
Private Sub SendEmail(ByVal ToEmail, ByVal Title, ByVal Content)
Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)
smtp.Credentials = New System.Net.NetworkCredential("xxx@163.com", "password")
Dim mail As New System.Net.Mail.MailMessage()
mail.Subject = Title
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.from = New System.Net.Mail.MailAddress("xxx@163.com")
mail.Priority = System.Net.Mail.MailPriority.Normal
mail.IsBodyHtml = True
mail.Body = Content
mail.To.Add(ToEmail)
smtp.Send(mail)
End Sub
ÔÚ±¾µØXP»·¾³Àï²âÊÔ¿ÉÒÔÕý³£·¢ËÍ£¬·ÅÔÚserver 2003µÄ·þÎñÆ÷ÉÏ·¢ËÍÓʼþ²»ÄÜÕý³£Ö´ÐС£
ÊÇʲôÔÒòÄØ£¿
Server2003ÖÐ SMTP·þÎñÒ²°²×°ÁË
·À»ðǽ֮ÀàµÄÉèÖÃ×öÁË£¿
·À»ðǽ£¬É±Èí£¬360 Ö®ÀàµÄ¶¼Ã»¿ª
¿´²»³öÓÐʲôÎÊÌ⣬Äã˵²»ÄÜÕý³£ÔËÐУ¬×ÜÓиö´íÎóÌáʾ°É£¿
ÎÒµÄvs.net2003ÀïÔõôûÓÐmapiÕâ¸ö¿Ø¼þÄØ£¿
±¾µØ¿ÉÒÔÕý³£ÔËÐС£¿ÉÒÔÊÕµ½·¢Ë͵ÄÓʼþ
server2003 ÉÏ Ò²¿ÉÒÔÕý³£ÔËÐС£µ«ÊÇÊÕ²»µ½·¢Ë͵ÄÓʼþ£¬Ò²¾ÍÊÇÓʼþûÓз¢ËͳöÈ¥
ÎÒ²»ÖªµÀ»á²»»áÊÇ·þÎñÆ÷»·¾³µÄÎÊÌ⣬ÆäËü³ÌÐòÓÖÎÞÓ°Ïì¡£
²»ÖªµÀ´ÓÄÄÀïÕÒÔÒòÁË
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......