vb webbrowser×Ô¶¯Ìî±íÎÊÌâ
ÓÃVBµÄWebbrowserʵÏְٶȿռäÆÀÂÛµÄ×Ô¶¯Ìî±í¹¦ÄÜ£¬¾ÍÄÚÈÝÄǸöµØ·½ÎÞ·¨ÊµÏÖ×Ô¶¯ÌÆäËûµØ·½¶¼¿ÉÒÔ¡£¸ßÊÖ°ï¿´¿´ÈçºÎʵÏÖ£¬²âÊÔ¿ÉÒÔÓúó°Ñ´úÂë·¢ÉÏ£¬Ð»Ð»¡£
ÎҵĴúÂëÊÇ£º
If vTag.Name = "spBlogCmtText" Then 'ÄÚÈÝ
vTag.Value = "value"
End If
ÍøÒ³ÀïµÄ´úÂëÊÇÕâÑùµÄ£º
<td valign="top" class="f14" id="reTitle">ÄÚ¡¡ÈÝ£º </td>
<td> <textarea name="spBlogCmtText" id="spBlogCmtText" style="width:520px;height:155px" onFocus="hidErr(3);" > </textarea>
Õâ¸öû×ö¹ý ÎÒµÄ˼·£º
²éÕÒtext name=spBlogCmtText ¾Í¸³Öµ¸öËû ±ÈÈç spBlogCmtText¡£text=¡°ÊÇ´ò·¢Ë¹µÙ·Ò¡±
²»ÖªµÀÊDz»ÊÇ¿ÉÐÐ
¿ÉÄÜÆÀÂÛÄDZßÓмÓÃÜµÄ°É Èç¹ûûµÄ»°²»¾ÍÂÒÌ׿©
·ÀÖ¹ÓÐÈËË¢Ìû~~~~
Â¥Ö÷Òª¡£¡£¡££¿
mark
ÔΣ¬ÄѵÀÕæµÄû½â¾öµÄ·½·¨£¬×Ô¼º¶¥Ò»ÏÂ~~~
VB code:
If vTag.Name = "spBlogCmtText" Then 'ÄÚÈÝ
vTag.innerhtml= "value"
End If
Â¥Ö÷£¬ÏÂÃæÑéÖ¤ÂëÔõô½â¾öµÄ£¿
up
ÓÃAutoHotKey
лл´ó¼Ò¡£
sysdzw£¬ÄãÄÇ´úÂëÎÒ²âÊÔÁËÔõô»¹ÊDz»¿ÉÒÔ£¬Èç¹ûÄã²âÊÔ¿ÉÒԵϰ£¬¿É²»¿ÉÒÔ°ÑÈ«²¿´úÂë¶¼·¢ÉÏÀ´°¡£¿
ÑéÖ¤ÂëÎÒ»¹Ã»½â¾ö£¬ÑéÖ¤ÂëÊÇÒªÊÖ¶¯ÊäÈëµÄ¡£
°¡¡£Ê²Ã´»¹ÊÇÎÞ·¨½â¾ö¶î£¿£¿ÔÙ¶¥~~
·¹ý£¬°ï¶¥ÏÂ
{{----}
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......