Tại sao mã VBS này không thành công với lỗi "Loại không phù hợp: 'CInt'"?

Question

Tôi đang gặp khó khăn với mã VBS sau. Nó chỉ hoạt động đôi khi, và thậm chí sau đó nó thất bại một cách nhanh chóng. Tại sao?

Dim Butt 
Set Butt = CreateObject("InternetExplorer.application") 
Butt.visible = True 
Butt2 = InputBox("Put the link to one hat you would like to snipe.", "Hat Selection") 
Butt3 = InputBox("Enter the maximum amount of Robux you will spend on this hat.", "Maximum Payment") 
Dim Proace 
Set Proace = CreateObject("Microsoft.XMLHTTP") 
Proace.Open "GET", "http://www.roblox.com", False 
Proace.Send 
Do 
Do While Butt.Busy 
WScript.sleep 200 
Loop 
St00f = CInt(Replace(Mid(St00f, (InStr(St00f, ">R$")+3), 8), "</b>", "")) 
If St00f <= CInt(Butt3) Then 
Butt.Navigate "javascript:WebForm_DoPostBackWithOptions(new%20WebForm_PostBackOptions(""ctl00$cphRoblox$TabbedInfo$UserSalesTab$lstItemsForResale$ctrl0$lnkBuyNow"",%20"""",%20true,%20"""",%20"""",%20false,%20true))" 
Exit Do 
End If 
Loop 
Do While Butt.Busy 
WScript.sleep 200 
Loop 
MsgBox("Congratulations! Your snipe was successful! You sniped "&Butt2&" for "&Butt3&" Robux!") 
Butt.Quit 
Set Butt = Nothing 
Set Proace = Nothing 
WScript.Quit 

Lỗi:

Script: C:\Users\John\Downloads\SingleHatSniper.vbs 
Line:  14 
Char:  1 
Error: Type mismatch: 'CInt' 
Code:  800A000D 
Source: Microsoft VBScript runtime error 

Xin hãy giúp tôi, tôi không phải là tuyệt vời với VBS. Điều đó rất rõ ràng, bạn tôi đã giúp tôi viết điều này.

Answer 1

Như bạn có thể đã biết đến bây giờ, đây là nơi mà các lỗi xảy ra

St00f = CInt(Replace(Mid(St00f, (InStr(St00f, ">R$")+3), 8), "</b>", "")) 

Và dòng mà không những điều

1. InStr mà trả về vị trí số của sự xuất hiện đầu tiên của "> R $ "
2. Sau đó, được thêm bằng 3 để lấy chỉ mục sau chuỗi "R$"
3. Bây giờ Mid chia tách chuỗi St00f với chỉ số bắt đầu sau khi "R$" để chiều dài 8
4. Sau đó Replace mất chuỗi phân chia và thay thế một sự xuất hiện của "</b>" với ""
5. Cuối cùng CInt chuyển đổi chuỗi thành một số nguyên hay đúng hơn * Chuyển đổi mọi số tới biến thể của loại phụ Integer *

Và bạn đang gặp lỗi khi chuyển đổi CInt.

Nếu tôi ở vị trí của bạn, tôi sẽ chia dòng này bằng cách chỉ giữ một chức năng trên mỗi dòng và sau đó thử một cái gì đó giống như MsgBox cho đầu ra sau mỗi dòng và tìm thấy những gì sai với điều đó.

Khóa là biến số St00f và biến số đó giữ.
Chúc mừng Mã hóa :)

Answer 2

Các "Loại không phù hợp" lỗi chỉ ra rằng bạn thay thế (...) không trả về một chuỗi số hợp lệ:

>> i = CInt("4711") 
>> 
>> i = CInt("999999999999") 
>> 
Error Number:  6 
Error Description: Overflow 
>> i = CInt("no number") 
>> 
Error Number:  13 
Error Description: Type mismatch 
>> i = CInt("") 
>> 
Error Number:  13 
Error Description: Type mismatch 

Xem xét sử dụng IsNumeric() trước khi bạn áp dụng CInt ().

Answer 3

CInt có thể xử lý betweeen -32,768 và 32,767

Sử dụng CLng thay vì CInt

sao chép từ Cint overflow error when value exceeds 100,000+