vb²Ù×÷ieä¯ÀÀÆ÷
ÏàÐÅÏÖÔÚ¾ø´ó¶àÊý¼ÆËã»úÉÏʹÓõÄÊÇIEä¯ÀÀÆ÷¡£ÈçºÎͨ¹ý±à³Ì¿ØÖÆIEµÄ²Ù×÷ÄØ£¬±¾ÎĽ«Ò»²½²½½éÉÜÈçºÎͨ¹ýVB
µ÷ÓÃIEµÄ¶ÔÏó¿âÀ´¶ÔIE½øÐпØÖÆ¡£
±¾ÎÄʹÓõıà³Ì¹¤¾ßÊÇVB6Ó¢ÎÄÆóÒµ°æ£¬ä¯ÀÀÆ÷ÊÇIE5£¬ÒÔϵĴúÂëÖ»ÄÜÔÚIE4¼°ÒÔÉÏ°æ±¾ÏÂÔËÐС£ÁíÍâΪÁËÄÜÉî
ÈëÁ˽â³ÌÐò´úÂ룬×îºÃÄÜ°²×°MSDN¡£ÎÄÖеÄËùÓжÔÏ󡢺¯Êý¡¢Ê¼þÔÚÆäÖж¼¿ÉÒԲ鵽¡£
Ò»¡¢ÈçºÎ»ñµÃWindowsÖÐËùÓдò¿ªµÄä¯ÀÀÆ÷´°¿Ú
Ê×ÏÈ´ò¿ªVB£¬½¨Á¢Ò»¸öй¤³Ì£¬µã»÷²Ëµ¥ Projects | References ÏÔÚAvailable References ÁбíÖÐÑ¡Ôñ
Microsoft Internet ControlsÏInternet¶ÔÏóÒýÓýéÈëµ½¹¤³ÌÖС£Ìí¼ÓÒ»¸öListBoxµ½Form1£¬È»ºóÔÚForm1ÖÐÌí
¼ÓÈçÏ´úÂ룺
Dim dWinFolder As New ShellWindows
Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
List1.AddItem objIE.LocationURL
End If
Next
End Sub
´ò¿ª¼¸¸öä¯ÀÀÆ÷´°¿Ú£¬È»ºóÔËÐгÌÐò£¬¿ÉÒÔ¿´µ½ËùÓÐä¯ÀÀ´°¿ÚÖеÄURLµØÖ·¶¼ÔÚList1ÖÐÁÐÁ˳öÀ´¡£
ÉÏÃæ³ÌÐòÖеÄShellWindows¶ÔÏóÊÇÃèÊöµ±Ç°ËùÓдò¿ªµÄ“ä¯ÀÀ´°¿Ú”¶ÔÏ󼯺ϵĶÔÏó£¬ÀûÓÃFor...EachÓï¾ä¿ÉÒÔ
»ñµÃÆäÖÐËùÓеÄä¯ÀÀ´°¿Ú¶ÔÏó¡£ÕâÊÇÒ»¸öWebBrowser¶ÔÏó£¬ÔÚMSDNË÷ÒýÖÐͨ¹ý“WebBrowser Object”ÖпÉÒÔÕÒµ½¸Ã
¶ÔÏóµÄÏêϸ½éÉÜ
ÔÚShellWindowsÖеÄä¯ÀÀ´°¿Ú¶ÔÏó²»½ö°üº¬IE£¬»¹°üº¬Explore´°¿Ú£¨Ïò×ÊÔ´¹ÜÀíÆ÷»òÕß“ÎҵĵçÄÔ”´°¿Ú¾ÍÊÇ
Explore£©¡£Ö»²»¹ýËüÃǵÄ
Ïà¹ØÎĵµ£º
****ʲôÊǶþ´Î¿ª·¢?
Ò»°ãµÄÀ´Ëµ£¬Ò»Ð©´ó¹«Ë¾ÈçIBM¡¢MS¿ª·¢ÁËÒ»¸ö´óÐ͵ÄÈí¼þϵͳƽ̨£¬¸ù¾Ý²»Í¬µÄ¿Í»§µÄÐèÒª£¬Ò»Ð©ÆäËüµÄÖÐС¹«Ë¾Îª¿Í»§¸ù¾ÝÐèÇóÔÚ¸Ãƽ̨ÉϽøÐеڶþ´ÎÓÐÕë¶ÔÐԵĿª·¢£¬Õⱻͳ³ÆΪ¶þ´Î¿ª·¢¡£
¡¡ ¶þ´Î¿ª·¢Òª¿´Èí¼þÊÇ·ñÌṩÏàÓ¦µÄ½Ó¿Ú£¬ÓеãÈí¼þ¹«Ë¾Ö»ÌṩÈí¼þ£¬µ«Ò²ÓÐС¹«Ë¾Á¬´úÂëÒ»Æð³öÊÛ£¬È ......
¹ØÓÚActiveXµÄ½Ì³Ì
Visual BasicÊÇÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑÔ£¬Î¢Èí¹«Ë¾ÍƳöÁËActiveX¼¼Êõ£¬ÀûÓÃActiveX¼¼ÊõÌá³öµÄ±ê×¼£¬¶Ô½çÃæµÄÉè¼Æ½øÐÐÁË·â×°£¬ÐγÉÁËһϵÁбà³Ì¿Ø¼þ£¬¼´Ìض¨¹¦ÄܵijÌÐòÄ£¿é¡£ÔÚ³ÌÐòµÄÉè¼ÆÖУ¬Éè¼ÆÈËÔ±Ö»ÐèÒªÍ϶¯ËùÐè¿Ø¼þµ½´°Ì壬Ȼºó¶Ô¿Ø¼þ½øÐÐÊôÐÔÉèÖúÍʹÓÃÆä·½·¨¡¢Ê¼þ¼´¿É£¬´ó´ó¼õÇáÁË·±ËöµÄ³ÌÐòÉè¼Æ¡ ......
×î½üÔÚʹÓúÍÑо¿OpenGL»æͼ£¬Óöµ½²»ÉÙÎÊÌâ¡£ÍøÉϲéÔÄ×ÊÁϵÄʱºò£¬·¢Ïִ󲿷Ö×ÊÁ϶¼ÊÇCÓïÑÔ£¬ºÍC++дµÄ£¬VBÕâ·½ÃæµÄ×ÊÁÏÌ«ÉÙÁË£¬VB6.0µÄ¾Í¸üÉÙ£¬ÏÖÔÚ¶¼Á÷ÐÐdotnet¡£×Ô¼ºÂòÁ˱¾OpenGLÊéÊÇÒ²ÊÇCÓïÑÔ°æµÄ¡£Õâ¸ö²©¿ÍÒ²¿ªÁË2Äê¶àÁË£¬¶¼Ã»Ð´µã¶«¶«ÉÏÀ´¡£³ÃÍíÉÏ˯²»×Å£¬ÉÏÀ´Ð´µã¡£
Ò»¡¢Ê²Ã´ÊÇOpenGL£¿
OpenGLÊÇOpe ......
http://bbs.blueidea.com/viewthread.php?tid=531257
Èç¹ûÏëÁ˽âSOAPµ½µ×ÊÇʲô£¬¾ÍÒª×Ô¼º¶¯ÊÖ½¨Á¢×Ô¼ºµÄSOAP±ê×¼¶ÔÏó¡£±¾ÎÄ¿ÉÒÔ°ïÖúÄãÆ𲽡£
============================================
¼ò½é
SOAP - ¼òµ¥¶ÔÏó´¦ÀíÐÒé(Simple Object Access Protocol) - Êǵ±Ç°XML¿ª·¢µÄÈȵ㡣ËüÊÇ΢ÈíÐÂÒ»´úVisual StudioµÄÖ÷Òª½Ç ......
Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......