最恨_VB 最恨_VB
个人资料读取中......
关注数: 4 粉丝数: 740 发帖数: 1,142 关注贴吧数: 18
关于起点404错误页面的测试报告 从昨天晚上就开始了 经过的我的测试 我发现 在书页 按键盘 ← → 都是404错误只有点击“上一页” “下一页”才可以 起点程序员估计想改防盗版 但是因为智商问题 把所有读者都给坑了 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fread.qidian.com%2FBookReader%2F3473065&urlrefer=e8b566101ffe9071bf06b1628b8d5996,83548776.aspx这是超级军工霸主 的第四十八章 你会发现 根本打不开 只有搜索书籍 然后从目录进去才能打开 我不懂 你们起点想干什么? 你们这样改版的话 光我一个人 我电脑收藏夹里面就有100多本书全部看不了 你们算下你们活跃用户有多少 再乘100 就是影响的连接数 就算你们活跃用户100万*100=10亿! 10亿个连接被影响 我看改版的程序员可以被枪毙了好了 来说点正经的 既然你们想防盗版 我就给你们点建议 1.凡是程序抓取的 它的阅读频率必然非常高 正常人阅读一章肯定要10秒以上吧好了 第一个条件 readtime<102.正常人每天阅读不会是24小时不间断对吧 Sumreadtime > 86400 还有IP 黑名单 白名单 等等等等 手段方法多的是!你们好奇我为什么说这么多 对不对 因为你们程序员实在是太蠢了!!! http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fbbs.qidian.com%2Fshow.aspx%3Frid%3D940748&urlrefer=2c8c91f7724f86a98ec1e726f60c301a 这是我在起点发的帖子 大家都去顶! 让愚蠢的程序员速度改好!
好无聊啊      '函数加载联系人      Public Function GetLianXiRen() As Boolean          '联系人空间          Application.DoEvents()          Dim MySession As OutlookSession = New OutlookSession          '联系人数目          Dim LXRshu As Integer = 0          '联系人          Application.DoEvents()          Dim LXR As Contact = New Contact()          If (MySession.Contacts.Items.Count <= 0) Then              '中文版操作系统 将被颠倒              LXR.LastName = "作"      '姓              LXR.FirstName = "者"     '名              LXR.MobileTelephoneNumber = "13013083486"              MySession.Contacts.Items.Add(LXR)          Else          End If          LXRshu = MySession.Contacts.Items.Count          ListView1.Items.Clear()          Dim Str(4) As String          Dim Item As ListViewItem          Str(0) = 0          Str(1) = "13013083486"          Str(2) = "最恨VB"          Str(3) = "待发"          Item = New ListViewItem(Str)          ListView1.Items.Add(Item)          For i = 0 To LXRshu - 1              LXR = MySession.Contacts.Items(i)              Application.DoEvents()              '   MsgBox(LXR.ToString & "   " & LXR.MobileTelephoneNumber)              Str(0) = i + 1              Str(1) = LXR.MobileTelephoneNumber              Str(2) = LXR.ToString              Str(3) = "待发"              Item = New ListViewItem(Str)              ListView1.Items.Add(Item)          Next          For i = 0 To ListView1.Items.Count - 1              ListView1.Items.Item(i).Checked = True          Next      End Function      '函数 发送短信      Public Function SendMSG(ByVal ADNO As String, ByVal MSG As String) As String          SendMSG = "成功"          'System.Diagnostics.Process.Start("tmail.exe", "-transport\SMS\-to\" & ADNO & "\-body\" & MSG & "\")          Try              Application.DoEvents()              FaXin = New SmsMessage(ADNO, MSG)              FaXin.RequestDeliveryReport = True              FaXin.Send()              SendMSG = "成功"          Catch ex As SmsException              SendMSG = ex.Message              MsgBox(SendMSG)              SendMSG = "错误"          End Try      End Function
1 下一页