📄 dc.bas
字号:
Attribute VB_Name = "DC"
Public Versie As Byte
Function StringZoek(str1 As String) As Boolean
Dim result
If Versie = 0 Then
'Origineel = "$MyINFO"... 0.9977
result = InStr(1, str1, "$MyINFO")
ElseIf Versie = 1 Then
result = InStr(1, str1, "$Version 1,0005|$GetNickList|$MyINFO")
End If
If result <> 0 Then
StringZoek = True
'MsgBox "ok"
Else
StringZoek = False
End If
End Function
Function Verander_HD(str As String, MB As String) As String
'Replace string.
'strbegin = Mid(str, 1, X - 1)
MB = (Val(MB) * 1.08)
strVerander = MB & 999 & 999
'Zoeken naar 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -