VBÎļþȨÏÞÉèÖÃÎÊÌâ
֮ǰ¼û¹ýÒ»¸öshellµ÷ÓÃcacls.exeµÄ,µ«ÊÇûÄܳɹ¦,ÔËÐкóÖ»Ò»ÉÁ¶ø¹ý,ûЧ¹û.
ÄÄλ´ó¸çÖªµÀÕâÑùÀàËÆÓï¾ä¿ÉÒÔʵÏÖÕ⹦ÄÜÄØ?
API?
Private Sub Command1_Click()
Shell "c:\windows\system32\calc.exe", vbNormalFocus
End Sub
¼Ó¸ö±äÁ¿ÄØ?ÀýÈçÎÒÁíÒ»¸öÓï¾äÈ¡µÃÁËÎļþµÄÃû×ÖÊDZäÁ¿x,ÄÇÓ¦¸ÃÔõô×öÄØ?
Dim dire As String
x = Text1.Text & Text2.Text & " /t /e /p everyone:f"
Shell "cmd /c cacls.exe" & x &, vbHide
ÆäÖÐTEXT1.TEXTÊÇ·¾¶,TEXT2.TEXT ÊÇÎļþÃû
ÕâÑùÊÇû·´Ó¦µÄ
TOP
¹ûÈ»´íÁË,лÁ˺ï¸ç
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......