cy9934303的个人资料

求助：post分页数据，为什么返回的总是第一页的数据？ Public Function client() As String Dim WebClientObj As WebClient = New WebClient() Dim PostVars As Specialized.NameValueCollection = New System.Collections.Specialized.NameValueCollection() PostVars.Add("__VIEWSTATE", "太长省略，这是第一页的数据") PostVars.Add("__EVENTTARGET", "MoreInfoList1$Pager") PostVars.Add("__EVENTARGUMENT", "3") WebClientObj.Headers.Add("ContentType", "application/x-www-form-urlencoded") Dim s = "" For Each name1 In PostVars.Keys If s.Length > 0 Then s += "&" s += name1 + "=" + HttpUtility.UrlEncode(PostVars(name1)) Next Dim byte2() As Byte = Encoding.ASCII.GetBytes(s) Dim byte1() As Byte = WebClientObj.UploadData("网址", "POST", byte2) Dim ResponseStr$ = Encoding.UTF8.GetString(byte1) Return ResponseStr End Function 图片是点击第二页获取的头。我用了各种办法不管怎么弄都只能获取第一页的信息啊，难道只能用WB抓标签？

用伪随机给字节数组加密随机函数是取得的随机数是伪随机，所以可以用数字密码作为随机函数的种子来对byte()打乱顺序，生成的文件乱码也没有规律，对于加密小文件的初级方法是个不错的选择。 Public Function 字节数组加密(ByVal bytes() As Byte) As Byte() Dim a As New Random(bytes.Length)’bytes.Length是种子，可以设成密码 Dim index(Int(bytes.Length - 1 / 4) * 2)‘定义打乱次数，必须是偶数，这里是打乱Byte()长度的四分之一次 For i = 0 To Int(bytes.Length - 1 / 4) * 2 - 1 index(i) = a.Next(0, bytes.Length)’生成要打乱的byte()的标号 Next Dim tmp% For i = 0 To index.Length - 3 Step +2‘开始两组两组打乱 tmp = bytes(index(i)) bytes(index(i)) = bytes(index(i + 1)) bytes(index(i + 1)) = tmp Next Return bytes End Function Public Function 字节数组解密(ByVal bytes() As Byte) As Byte() Dim a As New Random(bytes.Length)’bytes.Length是种子，可以设成密码 Dim index(Int(bytes.Length - 1 / 4) * 2)’同加密 For i = Int(bytes.Length - 1 / 4) * 2 - 1 To 0 Step -1 index(i) = a.Next(0, bytes.Length) Next Dim tmp% For i = 0 To index.Length - 3 Step +2 tmp = bytes(index(i)) bytes(index(i)) = bytes(index(i + 1)) bytes(index(i + 1)) = tmp Next Return bytes End Function

发一个自己做的康威生命游戏有要的吗？

想写一个泰森多边形的算法上个星期的最强大脑PK英国队的那场，第一轮林健东做的那个泰森多边形的项目觉得有意思，想用vb.net写一个泰森多边形的算法并绘制出来，刚做了第一步。将离散点连成三角形，不过算法似乎还是不稳定，而且有点错误，先做到这里有时间修改下再做第二步。

GridView自动生成列，当表头开启自动排序后获取表头名的方法问题描述：GridView如果是数据库绑定自动生成列，而且AllowSorting="True"自动排序开启，那么GridView1.Columns得到的列数是0，而且GridView1.HeaderRow.cells(i)也得不到表头的名称。在网上也没看到合适的解决方案，研究几个小时终于解决，分享出来。解决办法：造成这个问题的原因很简单，当开启自动排序后表头其实就变成了多个控件的组合单元格了，最底层的框为LinkButton。而这个在前台页面看不到。所以我们可以利用HeaderRow下的.Controls来解决。 Dim kk As WebControls.LinkButton = GridView1.HeaderRow.Controls(i).Controls(0) 用kk.text 就可以获取到表头。 GridView1.HeaderRow.Controls(i)这个Controls是DataControlFieldHeaderCell类控件，是HeaderRow下第一层子控件，i是列号。 GridView1.HeaderRow.Controls(i).Controls(0)这个Controls是DataControlLinkButton类控件，是HeaderRow下第二层子控件，也是存放表头名的地方。延伸用法：比如GridView必须从数据生成列，而列数是经过筛选的，在自动排序开启的情况下为每行单独设置列宽。 Private Sub GridView1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowCreated For i = 0 To e.Row.Cells.Count - 1‘从第一列开始设置 Try Dim kk As WebControls.LinkButton= GridView1.HeaderRow.Controls(i).Controls(0) Select Case kk.Text Case "序号" : e.Row.Cells(i).Width = 40 Case "姓名" : e.Row.Cells(i).Width = 80 Case "年龄" : e.Row.Cells(i).Width = 30 ’要留一个字段列宽不设置，不然会自动调整所有列宽 End Select Catch ex As Exception End Try Next End Sub

发几个自己以前练习vb.net做的东西这是自己以前学VB.net用vb2008时做的。整个盘面都是用GDI+绘制的，AI算法采用的是得分制，不过技术有限，复杂的得分算法不会，AI太笨了。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1i3i0I2p&urlrefer=5582d6277ba045ee6878f2fc750b4a32

求助：DataGridView中使用自定义颜色为什么不能正常显示？ With DataGridView1 .Width = 60 * 5 .Height = 60 * 5 .EditMode = DataGridViewEditMode.EditOnEnter .RowTemplate.Height = 60 For i = 0 To 3 .Columns.Add("Column" & i, i) .Columns(i).Width = 60 Next i .Rows.Add(3) '*** Dim a as color = Color.Blue’换成这个则正常 Dim a as color = Color.FromArgb(223, 158, 54, 111)‘换成这个不正常 .DefaultCellStyle.BackColor = a End With 添加一个DataGridView，使用’***里的颜色可以正常显示，而使用自定义的颜色的话为什么就不能正常显示，感觉像是不能自动刷新颜色。请赐教。实在是找不出原因了。

EU3改档自己试的一些东西，很无聊的。先声明我是玩的无聊了，试试改档，当然改档了也就玩的没意义了。我用的是UE编辑器改的。一、省份属性直接搜索省份名，或者搜索该省份的人口。搜到类似下面代码的就是省份属性。这些都可以修改， name="斯德哥尔摩" #城市名 owner="HRE" #该省拥有者，将引号中的国家ID换成自己的国家ID那个国家就成自己的 core="HRE" #该省拥有核心的国家，替换、删除或者添加 culture=swedish #这个没试，应该是文化类别吧 religion=protestant #该省的宗教类别，protestant是新教 citysize=32840.575 #该省人口 garrison=2000.000 #驻军2000 base_tax=7.000 #税收基准 manpower=29.000 #应该是后备兵员吧，没试 trade_goods=wine #产物 wine是葡萄，gold是黄金 town_hall=yes #该省拥有市政厅（行政建筑4级） road_network=yes #该省拥有铁路网（贸易建筑4级） treasury_office=yes #该省拥有财政局（经济建筑4级） fort4=yes #该省拥有四级要塞（类推fort1就是一级）省份属性建筑中例如有fort4=yes也有fort1=yes则会优先高等级建筑。所以可以用批量修改，在替换栏里吧上面要改的全部粘贴进去替换。吃饭了，明天再写。

自己做的多条消息异步移动并变淡到消失效果就是多条文字消息一边向上移动，一边变淡并且消失。一条消息做这个效果简单几条消息随机出现并异步变化，感觉还是有点小复杂哦。有点小问题就是文字移动的时候有点闪，如果用autoredraw可以解决，但是有没有跟简单的方法哦？这里下载 www点zxyinvb点com/ziyong/1点rar

用data修改ACCESS数据库的数据代码是怎么写的？添加是下面这个 Form1.Data1.Recordset.AddNew Form1.Data1.Recordset.Fields("姓名") = s 修改是 Form1.Data1.Recordset.edit 但是接下来比如我要修改“姓名”列第三行的数据是怎么写的？

请教Text1_Change溢出问题为什么加到337就溢出了，溢出的是什么？

Optionbutton这样用竟然会溢出。。。 Private Sub Option1_Click(Index As Integer) For i = 0 To 2 Option1(i).Value = False Next i Option1(Index).Value = True End Sub 用Option1_MouseUp就正常 Option1用单选难道只能一个个的去把其他的value改成FALSE？

为什么员工排名下面不显示我的当前排名了？ RT

买的域名和空间，想自己玩下，不晓得怎么搞刚买个空间和域名，搞了半天，主页都没搞出来，哪个晓得啊，教下我

请问下“好123”上的百度一下按钮怎么点开？ http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.baidu.com%2F&urlrefer=800f0f60e0adc6fa089af090d7b53058上的那个按钮有ID我可以打开，但是在好123上的那个百度一下按钮似乎没有ID，我查了半天不晓得怎么点开，哪位打开过的告诉下小弟啊

发个以前做的聊天程序，这两天改了下，源码也发出来了 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fys-c.ys168.com%2F%3F&urlrefer=dc386c05dcb5f992e55ff496ef6f70b1新宇聊天软件.zip_50c1bsm0d7dkkksm0cnjikksl0cmomm1b5bikksmphu22f05f12z 这个聊天软件客户端用了皮肤控件美化了，用的是mdb数据库，客户端支持注册，保存聊天记录在本地，查看在线用户，是多人群聊的。服务端支持踢人，封ip。有待完善的地方：服务端没有美化，服务端上不能直接维护数据库。服务端上的显示在线人数人多了之后好像有点显示不准确。下面这个链接是我前面发的那个软件管理箱的下载地址，也放上去了。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fys-c.ys168.com%2F%3F&urlrefer=dc386c05dcb5f992e55ff496ef6f70b1软件快车道（拓展版）.zip_50c5bsm0d7dkkksm0cnjiksml0cmomm1b5biksmljiu22f05f12z

发个VB6.0制作的经典实用软件管理箱

利用内存映射防止程序多开可以，但怎么我的代码怎么无法激活至前台 Dim Mhwnd As Long Dim sa As SECURITY_ATTRIBUTES sa.bInheritHandle = 1 sa.lpSecurityDescriptor = 0 sa.nLength = Len(sa) ynRun = CreateFileMapping(&HFFFFFFFF, sa, PAGE_READWRITE, 0, 128, "d1fg4ef2fwf") If ynRun = 0 Then MsgBox "创建内存映射文件失败", vbQuestion, "错误" If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then ' MsgBox "程序已运行！", vbQuestion, "错误" Mhwnd = FindWindow(vbNullString, App.EXEName) ShowWindow Mhwnd, 1 End End If 声明和定义就不发出来了，这段代码是绝对防止多开，即使复制到其他目录，改程序名，都不能多开，但是为什么我的那两句显示到前台的命令失效呢？我是菜鸟，请大哥大姐指教啊。

发三个自己制作的小程序 1.键盘ASCII码值.exe 2.日期计算器.rar 计算两个日期相差多少天和某日期后N天是几号，有源码 3.zhenggu.rar 一个整蛊的小程序，有源码下载地址：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fcy9934303.ys168.com%2F&urlrefer=8bc142bdbb135d6565f35678072abac0

自己做的一个聊天室软件（支持注册账号）

文件夹在不知道为什么会出错，实在研究不出来了，求救 Skin1.LoadSkin VB.App.Path & "\" & "skinh.she" Skin1.ApplySkin Me.hWnd 提示实时错误58 文件已存在。下面是我从RES里读取创建文件的代码： Dim APP1() As Byte If Dir(App.Path & "\skinh.she") = "" Then APP1 = LoadResData(101, "CUSTOM") Open App.Path & "\skinh.she" For Binary As #1 Put #1, , APP1 Close #1 End If

原创】荣光医院画面建筑上的错误（有内容了）此游戏玩没玩过不要紧，因为本文章与游戏的玩法无关，只是该游戏画面上有几个建筑方面的小错误，不过也许我说的也有错的吧。来看看游戏中这栋楼房的设计是否有问题。本人发现了很多不合理之处，主要是房屋的结构不合理，下面列出几个我发现的错误。一、主过道里的那根梁这是二楼的梁长

【原创】百度荣光医院网页游戏画面建筑上的错误此游戏玩没玩过不要紧，因为本文章与游戏的玩法无关，只是该游戏画面上有几个建筑方面的小错误，不过也许我说的也有错的吧。来看看游戏中这栋楼房的设计是否有问题。本人发现了很多不合理之处，主要是房屋的结构不合理，下面列出几个我发现的错误。没办法，上面不能贴QQ空间相册的图片，我直接写我空间里了，大家去看看吧 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fuser.qzone.qq.com%2F281168572%2Fblog%2F1261923730&urlrefer=71a93293c4ef9e51e2bcedb880d1f22a