麻烦高手纠正一下我这段vb代码哪里写错了，编译时一直提示 缺少字符串常数 整段代码在问题补充里 求大神帮忙翻译一下下面这段代码！！！！！！！！！急！！！！！...
\u8bf7\u5e2e\u6211\u770b\u770b\u8fd9\u6bb5vb6\u4ee3\u7801\u9519\u5728\u54ea\u91cc\uff1f\u662f\u56e0\u4e3a\u6587\u4ef6\u540d\u7684\u524d\u540e\u542b\u6709\u53cc\u5f15\u53f7\u9020\u6210\u7684\uff08\u76f8\u5f53\u4e8e Open """C:\Program Files\Autodesk\Support\acad2012.lsp""" For Append As #199\uff09\uff0c\u8fd9\u6837\u6539\uff1a
Open Trim(Replace(v(i),"""","")) For Append As #199Print #199, "12345555"Close #199\u53e6\u5916\uff0c\u5728\u6253\u5f00\u6587\u4ef6\u4e4b\u524d\u6700\u597d\u5148\u68c0\u6d4b\u4e00\u4e0b\u6587\u4ef6\u662f\u5426\u5b58\u5728\uff0c\u4ee5\u9632\u6b62\u610f\u5916\u60c5\u51b5\u53d1\u751f\uff1a
If Dir(v(i)) = "" Then MsgBox "\u6587\u4ef6\u4e0d\u5b58\u5728"Else '\u8fd9\u91cc\u518d\u6267\u884c\u6253\u5f00\u6587\u4ef6\u7b49\u64cd\u4f5cEnd If
\u8fd9\u4e9b\u4ee3\u7801\u6ca1\u4ec0\u4e48\u5b9e\u9645\u610f\u4e49\uff0c\u90fd\u662f\u58f0\u660eAPI\u800c\u5df2\uff0c\u4e00\u4e2a\u4e2a\u544a\u8bc9\u4f60\u8fd9\u4e9bAPI\u90fd\u662f\u4ec0\u4e48\u4f5c\u7528\u5427\u3002
1\u3001OSGetProfileInt\uff1a\u53d6\u5f97win.ini\u521d\u59cb\u5316\u6587\u4ef6\u4e2d\u6307\u5b9a\u6761\u76ee\u7684\u4e00\u4e2a\u6574\u6570\u503c
\uff08\u53c2\u6570lpAppName\uff0cString\uff0c\u6b32\u5728\u5176\u4e2d\u641c\u7d22\u6761\u76ee\u7684\u5c0f\u8282\u540d\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\uff1b
lpKeyName\uff0cString\uff0c\u6b32\u83b7\u53d6\u7684\u9879\u540d\u6216\u6761\u76ee\u540d\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\uff1b
nDefault\uff0cLong\uff0c\u6307\u5b9a\u5728\u6761\u76ee\u672a\u627e\u5230\u65f6\u8fd4\u56de\u7684\u9ed8\u8ba4\u503c\uff09
2\u3001OSGetProfileSection\uff1a\u83b7\u53d6\u6307\u5b9a\u5c0f\u8282\uff08\u5728win.ini\u6587\u4ef6\u4e2d\uff09\u6240\u6709\u9879\u540d\u548c\u503c\u7684\u4e00\u4e2a\u5217\u8868
\uff08\u53c2\u6570lpAppName\uff0cString\uff0c\u6b32\u83b7\u53d6\u7684\u5c0f\u8282\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\uff1b
lpReturnedString\uff0cString\uff0c\u7528\u4e8e\u5bb9\u7eb3\u9879\u548c\u503c\u5b57\u4e32\u5217\u8868\u7684\u4e00\u4e2a\u7f13\u51b2\u533a\u3002\u6bcf\u4e2a\u5b57\u4e32\u90fd\u7528\u4e00\u4e2aNULL\u5206\u9694\uff0c\u6700\u540e\u4e00\u4e2a\u5b57\u4e32\u7528\u4e24\u4e2aNULL\u5b57\u7b26\u4e2d\u6b62\uff1b
nSize Long\uff0clpReturnedString\u7f13\u51b2\u533a\u7684\u5927\u5c0f\uff0c\u5728windows 95\u4e2d\u6700\u5927\u4e3a32767 \uff09
3\u3001OSGetProfileString \uff1a\u4e3awin.ini\u521d\u59cb\u5316\u6587\u4ef6\u4e2d\u6307\u5b9a\u7684\u6761\u76ee\u53d6\u5f97\u5b57\u4e32
\uff08\u53c2\u6570lpAppName\uff0cString\uff0c\u8981\u5728\u5176\u4e2d\u67e5\u627e\u6761\u76ee\u7684\u5c0f\u8282\u540d\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\u3002\u5982\u679c\u4e3avbNullString\uff0c\u5219\u5728lpReturnedString\u7f13\u51b2\u533a\u88c5\u8f7d\u8fd9\u4e2a.ini\u6587\u4ef6\u7684\u6240\u6709\u5c0f\u8282\u7684\u4e00\u4e2a\u5217\u8868 \uff1b
lpKeyName\uff0cString\uff0c\u6b32\u83b7\u53d6\u7684\u9879\u540d\u6216\u6761\u76ee\u540d\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\u3002\u5982\u679c\u4e3avbNullString\uff0c\u5219\u5728lpReturnedString\u7f13\u51b2\u533a\u88c5\u8f7d\u6307\u5b9a\u5c0f\u8282\u5185\u6240\u6709\u9879\u7684\u4e00\u4e2a\u5217\u8868\uff1b
lpDefault\uff0cString\uff0c\u6307\u5b9a\u6761\u76ee\u672a\u627e\u5230\u65f6\u8fd4\u56de\u7684\u9ed8\u8ba4\u503c\u3002\u53ef\u8bbe\u4e3a\u7a7a\uff08""\uff09\uff1b
lpReturnedString\uff0cString\uff0c\u6307\u5b9a\u4e00\u4e2a\u9884\u5148\u521d\u59cb\u5316\u597d\u7684\u5b57\u4e32\u7f13\u51b2\u533a\uff0c\u957f\u5ea6\u81f3\u5c11\u4e3anSize\u4e2a\u5b57\u7b26\uff1b
nSize\uff0cLong\uff0c\u88c5\u8f7d\u5230lpReturnedString\u7f13\u51b2\u533a\u7684\u6700\u5927\u5b57\u7b26\u6570\uff09
4\u3001OSWriteProfileSection\uff1a\u4e3aWin.ini\u521d\u59cb\u5316\u6587\u4ef6\u4e2d\u4e00\u4e2a\u6307\u5b9a\u7684\u5c0f\u8282\u8bbe\u7f6e\u6240\u6709\u9879\u540d\u548c\u503c
\uff08\u53c2\u6570lpAppName\uff0cString\uff0c\u8981\u8bbe\u7f6e\u7684\u5c0f\u8282\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\uff1b
lpString\uff0cString\uff0c\u9879\u548c\u503c\u5b57\u4e32\u7684\u4e00\u4e2a\u5217\u8868\u3002\u6bcf\u4e2a\u5b57\u4e32\u90fd\u7528\u4e00\u4e2aNULL\u5b57\u7b26\u5206\u9694\uff0c\u6700\u540e\u4e00\u4e2a\u5b57\u4e32\u540e\u9762\u7528\u4e24\u4e2aNULL\u8868\u793a\u4e2d\u6b62\u3002\u5982lpAppName\u6307\u5b9a\u7684\u5c0f\u8282\u4e0d\u5b58\u5728\uff0c\u5219\u7528\u90a3\u4e2a\u540d\u5b57\u65b0\u5efa\u4e00\u4e2a\u5c0f\u8282\uff0c\u5e76\u5c06\u5176\u8ffd\u52a0\u5230\u521d\u59cb\u5316\u6587\u4ef6\u7684\u6700\u540e\u3002\u5982\u679c\u5b58\u5728\uff0c\u5219\u5f53\u524d\u7684\u6240\u6709\u9879\u540d\u548c\u503c\u90fd\u4f1a\u88ab\u8fd9\u4e2a\u7f13\u51b2\u533a\u4e2d\u6307\u5b9a\u7684\u6570\u636e\u53d6\u4ee3 \uff09
5\u3001OSWriteProfileString\uff1a\u5728Win.ini\u521d\u59cb\u5316\u6587\u4ef6\u6307\u5b9a\u5c0f\u8282\u5185\u8bbe\u7f6e\u4e00\u4e2a\u5b57\u4e32\u3002
\uff08\u53c2\u6570lpszSection\uff0cString\uff0c\u6307\u5b9a\u8981\u5728\u5176\u4e2d\u5199\u5165\u65b0\u4e32\u7684\u5c0f\u8282\u3002\u5982\u5c1a\u4e0d\u5b58\u5728\uff0c\u4f1a\u521b\u5efa\u8fd9\u4e2a\u5c0f\u8282\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\uff1b
lpszKeyName\uff0cString\uff0c\u8981\u8bbe\u7f6e\u7684\u9879\u540d\u6216\u6761\u76ee\u540d\u3002\u8fd9\u4e2a\u5b57\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199\u3002\u7528vbNullString\u53ef\u5220\u9664\u8fd9\u4e2a\u5c0f\u8282\u7684\u6240\u6709\u8bbe\u7f6e\u9879\uff1b
lpszString\uff0cString\uff0c\u6307\u5b9a\u4e3a\u8fd9\u4e2a\u9879\u5199\u5165\u7684\u5b57\u4e32\u503c\u3002\u7528vbNullString\u8868\u793a\u5220\u9664\u8fd9\u4e2a\u9879\u73b0\u6709\u7684\u5b57\u4e32\u3002\uff09
\u540c\u65f6\u53c8\u58f0\u660e\u4e86\u4e24\u4e2a\u5e38\u91cf\uff1a
nBUFSIZEINI = 1024
nBUFSIZEINIALL = 4096
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim i As Integer
Private Sub Command1_Click()
Me.WindowState = 1
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Form1.Caption = ″记事本自动保存″
Text1.Text = ″″
Text1.Text = 1
Shell "notepad.exe", vbNormalFocus '打开记事本，并使之成为当前窗口
Timer1.Enabled = True '激活时钟控件
Form1.WindowState = 0
End Sub
Private Sub Timer1_Timer()
If FindWindow("Notepad") = vbNullString Then
Dim b As Integer
b = UpDown1.Value
i = i + 1
If i Mod b / 60 = 0 Then '设置自动存盘的时间间隔为分钟，可以根据需要进行更改。
SendKeys "%FS", True '调用文件菜单的保存命令，显示文件保存对话框
End If
Else
Unload Me
End If
End Sub
怎么看你图片上"user32"，的引号格式不对还是u前面有空格？
另外，用Public 定义试试
不是user32，是user32.dll
绛旓細End If 浣嶇疆鏀鹃敊浜 姣忎釜鐙珛If缁撴潫涔嬪悗鏀綞nd If Private Sub c1_Click()Dim a!, b!, c!a = t1.Text b = t2.Text c = t3.Text If a = 0 And b <> 0 Then t4.Text = -b / c End If If a = 0 And b = 0 And c = 0 Then t4.Text = "浠绘剰鏁"End If If a = ...
绛旓細涓鍒嗕篃娌℃湁锛岀湡鐨勫ソ绱晩鍋氳繖涓紝铏界劧鍙兘杩樻湁娌℃兂鐨凚UG銆備絾鏄嬁鍘诲惂 浣犱篃鍙互鏍规嵁杩欎釜鑷繁鍐嶅幓鏀硅繘涓涓 Option Explicit Dim var1 As Single Dim var2 As Single Dim length As Integer Dim length1 As Integer Dim length2 As Integer Dim sign As Integer Private Sub Command1_Click(Index As ...
绛旓細寤虹珛涓涓獥鍙ｈ窡涓涓ā鍧楀氨琛屼簡锛屽苟鏀剧疆鑻ュ共鎺т欢(5涓猯abel,5涓猼ext,1涓猚ommand)绐楀彛浠ｇ爜濡備笅:Private Sub Command1_Click()Call SetStringValue(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", Text1.Text)Call SetStringValue(HKEY_LOCAL_MACHINE, "...
绛旓細姝ｅ父鍟婏紒娌￠敊鍝︼紒涓嶈繃浣犲彲浠ユ妸Text2鐨凟nable璁句负Flase锛岄偅鏍峰瓙鍒汉灏辨棤娉曠紪杈慣ext2鐨勫唴瀹逛簡锛屽簲璇ヤ細鏇村ソ涓浜涳紒Private Sub Command1_Click()Dim hh hh = Val(Text1)If hh < 60 Then Text2.Text = "涓嶅強鏍"ElseIf hh < 80 Then Text2.Text = "鍙婃牸"ElseIf hh < 90 Then Text2.Text =...
绛旓細Controller.CreateScript("test.js", "remoteserver")閲岄潰test.js 鍜 remoteserver 鍒嗗埆琛ㄧず浠涔堟剰鎬濆晩 test.js鏄釜鑴氭湰鏂囦欢锛屽拰.vbs鏂囦欢绫讳技銆侱im Controller, RemoteScript Set Controller = WScript.CreateObject("WSHController") '杩滅▼缁勪欢 Set RemoteScript = Controller.CreateScript("test.js", "...
绛旓細浣犺繖浜涢兘鏄姩鎬佸彉閲 鏍规湰娌℃湁缁欎粬鐣 鎬庝箞鍙畠 鈥滀笉瓒婄晫鈥濆憪鍛靛懙 1.寤鸿鏀规垚Dim xx(2)鐨勫舰寮 2.瀹炲湪瑕佸姩鎬侊紝閭ｄ箞浣跨敤鍓嶅厛 Redim preserve 鏁扮粍(涓婃爣)OK 甯綘鍐欏ソ浜嗭紙鍙兘浼氭湁澶氫簬鏍囷紝鎴戜篃涓嶇煡閬撹繖涓共鍢涚殑 涓嶈兘寰堝噯纭 涓嶈繃澶氬嚭鏉ヤ竴涓病浠涔堝ぇ闂鍚с傘傚唴瀹瑰氨澶氬崰鐢1瀛楄妭缃簡锛夊府浣犲啓閬...
绛旓細Top = 2040 Width = 4215 End End Attribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim StrSend As String 鐜锛歸inxp vb6閫氳繃銆備笉鍚屾満鍣╥con鍜宲icture涓嶅悓锛岃缃竴涓嬪嵆鍙
绛旓細'涓嬮潰涓鸿繍绠楃殑浠ｇ爜 Private Sub Command1_Click()If Not IsNumeric(Text2.Text) Or Not IsNumeric(Text3.Text) Then Text1.Text = "is text2.text or text3.text not numeric"Form1.Caption = "杩愮畻澶辫触"'杈撳叆鐨勬槸鍚︿负鏁板瓧锛屽惁鍒欐彁绀洪敊璇俊鎭 If Option1.Value = False And Option2.Value ...
绛旓細4銆乺s.MoveFirse锛堝簲涓簉s.MoveFirst锛夊幓鎺夛細rs.open鍚庢寚閽堝氨鍦‵irst锛屼笉鐢∕ove 5銆丗or xyz=0 to zzz rs.MoveNext Next 褰搝zz=0鏃朵篃灏哅oveNext涓娆★紙鏄惁闇瑕佺Щ锛燂級锛屽彟闇瑕佸垽鏂槸鍚of锛屼慨鏀逛负锛歳s.Move zzz,1鍙竴姝ョЩ鍒颁綅 6銆乄hile zzz < 60娌℃湁鍏朵粬鏉′欢鐨勫垽鏂紝浠呬粎zzz=zzz+1锛屽缓璁敤For...
绛旓細鍏朵粬娌￠棶棰橈紝Mid鍑芥暟鏄互瀛楃鏁颁负搴﹂噺鍗曚綅鐨勶紝鑰屼綘鐨刡t杩斿洖鐨勬槸瀛楄妭鏁帮紝鎵浠ュ綋n澶т簬浣犵殑瀛椾覆瀛楃鏁板張灏忎簬瀛楄妭鏁版槸灏卞嚭閿欎簡銆侾rivate Sub Timer1_Timer()Dim a As Long Label1.Left = Label1.Left - 閫熷害 If Label1.Left <= -TW * IIf(Asc(Mid(Strs, BT(n, 1, RL))) < 0, 2, 1...
