Public Function write_sys_init
(gs As String, ss As String, sval As String)
As Integer
Dim retv as String
write_sys_init = 0
On Error Resume Next
retv=OSWritePrivateProfileString
(gs,ss,sval,"c:windowssystemmscredit.ini")
If Err Then
Err = 0
write_sys_ini = -1
End If
On Error GoTo 0
End Function
(gs As String, ss As String, sval As String)
As Integer
Dim retv as String
write_sys_init = 0
On Error Resume Next
retv=OSWritePrivateProfileString
(gs,ss,sval,"c:windowssystemmscredit.ini")
If Err Then
Err = 0
write_sys_ini = -1
End If
On Error GoTo 0
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货