2023年10月9日
摘要: static string connection; public void TestConnection(string dataFile) { connection = "Provider = Microsoft.ACE.OLEDB.12.0;Data source=" + dataFile; Ol 阅读全文
posted @ 2023-10-09 14:16 sonycat 阅读(16) 评论(0) 推荐(0) 编辑
摘要: Function TranslationContent(Wat As String) As String On Error Resume Next Dim Http As Object Dim MyScript As Object, R As Object Dim Reg As Object Set 阅读全文
posted @ 2023-10-09 13:43 sonycat 阅读(134) 评论(0) 推荐(0) 编辑
摘要: Function GetHttpText(Url As String) With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "Get", Url, False .Send GetHttpText = .ResponseText End With 阅读全文
posted @ 2023-10-09 07:59 sonycat 阅读(75) 评论(0) 推荐(0) 编辑