VB怎么输产品号和用户ID 安装VB的时候让输入产品ID号，怎么输
安装VB6.0时出现下列图片要求输入产品ID号：
可在输入产品的ID号处输入111 1111111或者123 1234567。
下面的姓名、公司名称可随意输入，有些以后可在VB的工程属性中修改的。
无论什么方法，你都得先“准备好数据信息”。
然后，简单的方法，就是在VB程序中设置好热键，
把你这个软件安装程序的窗口激活到前台后，按热键。
VB程序在接到热键消息后，用Sendkeys ，或者API：keybd_event() ，
把要填的文本依次”发送“出来。
复杂点的，就是在VB程序中，找到”安装程序的窗口“，然后找各个控件的句柄。
把对应的文本内容用消息发送到相应的Edit 中。
ID号：全部填写1
姓名：随便填
公司名称：随便填
如果有错误提示，直接忽略。
ID：111-1111111
剩下的随意。
绛旓細鍙湪杈撳叆浜у搧鐨処D鍙峰杈撳叆111 1111111鎴栬123 1234567銆備笅闈㈢殑濮撳悕銆佸叕鍙稿悕绉板彲闅忔剰杈撳叆锛屾湁浜涗互鍚庡彲鍦╒B鐨勫伐绋嬪睘鎬т腑淇敼鐨勩
绛旓細111-1111111
绛旓細浜у搧鍙峰拰ID鐣岄潰涓細 杈撳叆ID鍙凤細111-1111111锛屽鍚嶈嚜鐢卞～鍐欙紝鐒跺悗鐐瑰嚮 鈥滀笅涓姝モ濋夋嫨濂藉畨瑁匳B6.0鍚庯紝鐐瑰嚮 鈥滀笅涓姝モ濓紝鑷畾涔夊ソ瀹夎浣嶇疆锛屾渶濂藉畨瑁呭湪闄鐩樺鐨勫叾浠栫洏涓紝鐐瑰嚮 鈥滀笅涓姝モ濇寮忚繘鍏ュ畨瑁呯▼搴忥紝渚濇鐐瑰嚮 鈥滅户缁斺旂‘瀹氣濓紱 鐒跺悗鏍规嵁闇瑕侀夋嫨濂藉畨瑁呯被鍨嬶紝 鑷畾涔夊ソ瀹夎浣嶇疆锛 閫夋嫨濂藉畨瑁...
绛旓細瀹夎VB6.0鐨勬椂鍊欎細璁╀綘杈撳叆浜у搧鐨処D鍙凤紝涓鑸槸琚牬璇戠殑锛屼綘杈撳叆杩欎釜ID灏卞ソ浜嗭細111-111111銆侷D鏄韩浠芥爣璇嗗彿銆佽处鍙枫佸敮涓缂栫爜銆佷笓灞炲彿鐮併佸伐涓氳璁°佸浗瀹剁畝绉般佹硶寰嬭瘝姹囥侀氱敤璐︽埛銆佽瘧鐮佸櫒銆佽蒋浠跺叕鍙哥瓑锛屽悇绫讳笓鏈夎瘝姹囩缉鍐欍傚畠鏄彲浠ヨ鏄韩浠借瘉锛岃韩浠借瘑鍒紝鏄竴绉嶈韩浠借瘉鏄庛
绛旓細1銆杈撳叆浜у搧鐨ID鍙锛屾渶绠鍗曠殑灏辨槸鍏ㄩ儴濉啓1锛岀偣涓嬩竴姝ュ嵆鍙氳繃銆2銆佸鏋滀釜鎬у寲鐨勫～鍐欙紝鍓嶄笁浣嶉殢鎰忓～鍐欙紝娌℃湁闄愬埗锛堜絾涓瀹氭槸鏁板瓧锛夛紝鍚庝竷浣嶄篃鏄暟瀛楋紝浣嗗繀椤讳竷浣嶆暟鐩稿姞锛岃兘琚7鏁撮櫎銆3銆侀夋嫨瀹夎VB涓枃浼佷笟鐗堟垨鑰呮湇鍔″櫒搴旂敤绋嬪簭锛岀偣鍑讳笅涓姝ャ4銆侀夋嫨鍏敤瀹夎鏂囦欢澶逛綅缃紙榛樿鍦ㄧ郴缁熺洏锛夛紝鐐瑰嚮涓嬩竴姝ャ
绛旓細VB鎷ユ湁鍥惧舰鐢ㄦ埛鐣岄潰锛圙UI锛夊拰蹇熷簲鐢ㄧ▼搴忓紑鍙戯紙RAD锛夌郴缁燂紝鍙互杞绘槗鐨勪娇鐢―AO銆丷DO銆丄DO杩炴帴鏁版嵁搴擄紝鎴栬呰交鏉剧殑鍒涘缓ActiveX鎺т欢銆傜▼搴忓憳鍙互杞绘澗鐨勪娇鐢╒B鎻愪緵鐨勭粍浠跺揩閫熷缓绔嬩竴涓簲鐢ㄧ▼搴忋傚畠灞炰簬 Visual Studio 6.0 寮鍙浜у搧绯诲垪涓殑涓鍛樸傚叾浜у搧鐨ID涓鑸负111 1111111鎴123 1234567銆傚畨瑁杈撳叆鍦ㄤ互涓嬬獥鍙ｏ細...
绛旓細2011-02-06 鎴戜笅鐨刅isual Basic6.0涓枃浼佷笟鐗堝繀椤杈撳叆浜у搧 ... 15 2009-09-01 Visual Studio 6.0浼佷笟鐗浜у搧鍙峰拰鐢ㄦ埛ID鎬庝箞... 36 2014-07-19 visual basic 6.0涓枃浼佷笟鐗 鐨勫畨瑁呭悜瀵艰緭鍏ヤ骇... 6 2010-07-30 涓轰粈涔堟垜瀹夎VFP6.0瑕佽緭鍏ヤ粈涔ID鍙,鍏徃鍚嶄箣绫荤殑涓滆タ? 36 2016-04-28 VB6.0瀹夎涓殑浜...
绛旓細ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=鐧诲綍鏁版嵁搴鐢ㄦ埛鍚(榛樿涓簊a);Password=鐧诲綍鏁版嵁搴撳瘑鐮;Initial Catalog=鏁版嵁搴撳悕;Data Source=鏈嶅姟鍣ㄥ悕(榛樿涓:MERRYCHINA)" '杩欐槸杩炴帴SQL鏁版嵁搴撶殑璇彞 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpe...
绛旓細鏂规硶涓锛氾紙鎴戠煡閬撶殑閲戣澏杞欢灏辨槸杩欐牱澶勭悊鐨勶級涓瀵瑰 鏉＄爜琛ㄧ粨鏋勶紙鑷冲皯涓や釜瀛楁锛夛細 鍟嗗搧 鏉＄爜 鍙﹀鏉＄爜鏄湁瑙勫緥鐨勶紝6902538004045 6902538004052 鎴戝叿浣撶殑涓嶇煡閬擄紝浣6902538004鏄竴鏍风殑锛屾垨璁搁棶涓嬩緵璐у晢鍙互鏈夌瓟妗 涓句緥 鍟嗗搧琛細t_goods fitemid fname funit 1 鑴夊姩 鐡 2 銆傘 銆傘傛潯鐮佽〃锛歵_no fit...
绛旓細"璇杈撳叆鐢ㄦ埛鍚","娉ㄥ唽鐢ㄦ埛")for i = 1 to len(a)b=b & str(asc(mid(a,i,1)))next ib=6 & bif b-int(len(b)/2)*2 = 1 then b = b & 4text1 = "鐢ㄦ埛鍚嶆槸锛" & aa=""for i = 1 to len(b) step 2if mid(b,i,2)<32 then a=a & str(mid(...
