黑马GG 黑马GG
关注数: 0 粉丝数: 14 发帖数: 3,271 关注贴吧数: 10
谁能帮我看看这段代码应该怎么搞? '此程序需加载microsoft scripting runtime Dim FsoSys As New FileSystemObject '定义全局变量 Public i As String, ousername As String, opassword As String, npassword As String Public get_data As String, get_pre_ssn As String, get_next_ssn As String Public mytxtname As String, mytxtcontent As String Public ii As Integer Public objDoc As Object Public txtstream As TextStream Public iderr As String Private Sub Form_Load()     iderr = 0     Text1.Text = "初始化"     WebBrowser1.Navigate "about:blank" End Sub Private Sub Command1_Click()     '新密码     npassword = Text2.Text     '找TXT文本     Stxt     '开始更改密码     startedit End Sub Public Function startedit() '循环修改密码     '读取文本文件     If FsoSys.FileExists(CheckFilePath(App.Path) & mytxtname) Then         Dim s As String, ls_Content() As String   '文本数组         Dim LogCount As Long   '文本行数         Dim iii As Long         Open CheckFilePath(App.Path) & mytxtname For Input As #1   '打开文本         s = StrConv(InputB(LOF(1), #1), vbUnicode)           '将文件内容附给变量 S         Close #1         s = s & vbCrLf & vbCrLf   '增加最后一行的空行                  Do While InStr(s, vbCrLf & vbCrLf) <> 0   '删除空行            s = Replace(s, vbCrLf & vbCrLf, vbCrLf)         Loop         ls_Content = Split(s, vbCrLf)   '按回车拆散文本,将每一行的信息形成数组                  LogCount = UBound(ls_Content)   '总行数
【讨论】如何做类似QQ公告窗?(实时让客户端弹出) QQ有时候会在屏幕右下角弹出即时新闻窗口(现在很多软件都有,比如迅雷 360 等等) 现在我想实现这样的效果 就是服务器端要发布一个公告,设置好内容后,所有运行着的客户端都会即时弹出这个窗口。 我现在有个思路,希望大家帮忙看看可行不,如果有更好的方法,欢迎大家指点小弟 所有客户端在启动的时候,自动启动一个小程序,该程序是隐藏任务栏窗口和图标的,只有进程里面有(迅雷的那个FLASH广告在任务栏就可以单独结束) 这个小程序就是公告栏窗口,只不过启动时候就是隐藏的,它在启动后自动在当前文件夹下建立一个TXT文本,写入内容为 0 ,下次启动的时候检测这个TXT,如果有则不建立TXT,直接读取内容 然后程序每隔1分钟检测一次服务器,我打算是用服务器上一个ASP文件,里面只放一个字 O 程序获取到服务器的这个地址内容为0,对比数据,如果是相同的,则继续循环间隔1分钟去检测服务器 当我想要更新公告的时候,我把服务器这个ASP的内容更该为1,客户端在检测到数据1和本地数据0对比后发现不匹配,然后获取服务器另外一个地址,这个ASP可以放这次要发的公告内容,程序把内容显示到窗口里面的一个文本框,并显示这个窗口,这样就达到了我需要的目的,同时将本地TXT内容改成1,和服务器同步,这样客户端再检测的时候就不会出现第二次了,直到下次更新的时候,我服务器的ASP改成2即可让这个客户端再次显示新内容 不知道一般带公告窗口的的软件,都是通过什么方法实现的? 用我这个方法,不知道会不会因为客户端用户有好几万个,然后一起向服务器发送数据会导致服务器瘫痪? 还是有其他什么方法,不需要客户端定时检测的,服务器端发送个命令,运行中的客户端都会一起弹出窗口? 希望大家讨论下,呵呵
【谦变万化】090213 刘谦果然有做主持人的天份!!!   康洪雷两部大剧《幻想之旅》、《我的团长我的团》将要在2月19日开始在江苏卫视独家上星播出。针对这两部大剧,江苏卫视将隆重地邀请两大剧组于16日在南京举办开播典礼“康剧来了”,昨天记者还得知,在春晚红遍大江南北的台湾魔术师刘谦将担任本次开播典礼的主持。   一般首映典礼只有电影上映时才能享受,而这次对于康洪雷大剧的二连发,江苏卫视特别隆重地为电视剧举办的开播典礼“康剧来了”,可谓给予康洪雷作品电影级的待遇,表现出对于这位精品电视剧导演的高度认可。届时康洪雷领衔两大剧组,《幻想之旅》主演黄渤,罗海琼,任程伟,《我的团长我的团》主演段奕宏,张国强,张译,李晨,刘威葳将一同亮相“康剧来了”。除这些明星之外,主持人更是“与众不同”,在春晚用一把魔术迷晕全国观众的魔术师刘谦将给观众带来新的“招数”:他将作为主持亮相江苏卫视。   随着人气如火箭般上升,刘谦现在的抢手程度完全不弱于当红影视明星,据江苏卫视人员透露,刘谦此行,其价码在六位数人民币以上,有意思的是,这个出场价,与当时被爆伊能静有外遇,受到大家关注的庾澄庆基本相当。小哲张漪   相关新闻   刘谦在台出场费仍是2500   “春晚红人”刘谦的人气仍在直线上升,凡是有他参与的电视节目,收视率一定飘红。昨日记者了解到,安徽卫视的综艺节目《周日我最大》是最早把刘谦邀请到内地来表演的节目,安徽卫视把以往刘谦表演的魔术剪辑成三期特别节目,上周日播出首期,一举拿下同时段收视率全国第一,这是该节目开播以来首次拿下全国收视率冠军。昨日记者通过刘谦的经纪人了解到,刘谦的身价如今至少上涨了20倍。   昨天,《周日我最大》的制作人李浩告诉记者,刘谦的首次内地表演并不顺利,因为按照内地制作人的惯性思维,魔术表演都很死板,一般都是魔术师在台上“自娱自乐”,缺乏和台下观众的互动,所以当初台湾制作人介绍刘谦来内地表演时,他曾经犹豫过。不过后来他看了几期刘谦在台湾综艺节目《综艺大哥大》中的表演,觉得刘谦的魔术打破了以往的魔术表演模式,加入了许多很个人的东西,也让观众有了更多的参与感。   昨天记者还从刘谦所在的台湾《综艺大哥大》节目组了解到,刘谦在台湾的出场费没有大涨,每次出场费依然是折合人民币2500元左右。不过记者从一些内地的演出商那里获悉,刘谦的商演酬劳已上涨了40倍,高达10万元左右。昨天记者向刘谦的经纪人何先生求证,他告诉记者,目前刘谦上电视节目表演大约是每场5万元左右,商演则是以5万元为起价。这样算下来,刘谦的身价至少上涨了20倍。
还是一个让我刮目相看的女人 相关贴子http://tieba.baidu.com/f?kz=476658913回复:有没有人觉得秦岩是一个不错的老公? 我是个80后,我挺喜欢秦岩这个角色的,很像我的老公,我和我的老公都是独子独女!我跟老公一起看这部电视剧的时候,探讨了许多,其实跟婆婆处的好 处不好,跟自己还有自己的娘家还有你的那个他有一定的关系,其实我们这一代的父母是比较开通的,即使是生了个女儿 也是全家竭尽全力的培养!所以男方家长当然也会明白这一点,别人家的宝贝嫁到我们嫁,进了我们家的户口本儿里来,所以自然也是宝贝喽!虽然比起自己家的宝贝儿子还是差点,咱当儿媳妇也不能太挑理了,因为没得理由挑,毕竟没有血缘关系,所以公公婆婆自然不会太为难你了! 在一个就是你的那个他的态度,你在乎他所在乎的,他在乎你所在乎的,他还有什么不满的,想开一些就好了,你对他爸妈好,对他好,他傻子啊?难道看不出来啊?接下来就是他对你爸妈好,对你好,不会让你受委屈的,这些都是相互的,这招对我老公就很好使,因为我老公是个孝子,所以我永远不会傻到去问他 我和你妈同时落了水,你先救哪个的道理,不用说 我心里清楚,我老公会去救他的妈妈!因为没有可比性嘛!一个连自己的老妈都不要 都不爱的男人,想想就很恐怖,这种男人我还不敢要呢?因为我对自己的爸妈也挺孝顺的,所以我老公知道的他自己该怎么做!因为我对他爸妈已经让他没话说了,所以我的公婆很疼我!给姐妹们一句话——在家庭的问题上,在对爸妈的态度上~想老公所想,还要比他先想!急老公所急,还要比他还急!老公不是铁打的,他不会不疼你的! 作者: 123.117.79.* 2008-9-12 18:14
又是一个让我刮目相看的女人,大家请过目 相关贴子http://tieba.baidu.com/f?kz=476995728我看了两人的辩论!其实没必要!因为说不通!我要说一下我的看法!我是女的!未婚!要是我未来老公犯这样错误!我能理解!不是说大话!这是观念问题!在上大学时我们已讨论过这样的问题!有人能接受有人不能接受!甚至说不敢想!我觉得也没什么!就像有人觉得夏不可思议!有人觉得秦母不可思议!截然对立!我可以说一下我的看法!当然不是为了说服谁!我觉得犯错误很正常!这个我觉得大家都觉得没问题!谁没有犯过错呢!只是有人把错误分得有“等级”!就像“出轨”是不可饶恕的!可我不这么认为!我觉得就是“错误”而已!跟自己在生活中办了一件愚蠢事一样!当然只是我个人看法!还有一个看法!就是只要是男性在说这个问题!就会有女性站在“女性立场”去怀疑这个男性的用心!什么大男子主义之类的!其实,我觉得是不是我们女性自己想多了!不能他是一名男性就剥夺他发表评论的权利!我觉得恰恰是男性看东西更理性!女的容易感情用事!(女的确实容易感情用事!这是不争的事实“没必要争论)!所以我觉得秦只是犯了个”错误"而已!再回到电视中来!我觉得现代人比较自私!他们想太多自己!那么体现到电视上来就是对婚姻的态度!因为老觉得爱情是两个人的事!就对家人不管不顾!这不是自私是什么!有谁说过老婆就比老妈重要!要是有这种思想的人!我只能说她人品有问题!就像有人认为秦犯了不可饶恕的错误!要反省!那夏就没犯错误嘛?她为什么就不要反省!只能说大家都错!丈夫出轨跟媳妇不孝!有轻重嘛?老妈就不重要了吗? 作者: 123.10.134.* 2008-9-12 10:17
发现一懂事的女人,特贴出来给那些挺夏派看看 相关帖子http://tieba.baidu.com/f?kz=47659758521 回复:讨厌秦妈的人都是没有遇上真正的狠婆婆 嗯,是的。我婆婆在世的时候就比秦妈恶N倍。有一次我和老公回她那里,因为事先没跟她说,做的饭就不够了。婆婆毫不犹豫地把锅里的饭全给了她儿子,问都没问我一句。还有一次把我的家人请到她家里,然后又哭又闹数落我的不是,包括没洗她儿子的袜子...幸好我自己还挣钱呐!至于干涉我们私生活的事更举不胜举。可是,后来她过世了,我居然非常难过。因为,她虽然超级护犊子,可对我老公,对我们的孩子,那真是疼爱得无以复加。她在世的时候,我叫她“妈”,那可是叫得又甜又腻,虽然我心里对她并没有对我自己的妈亲。所以,婆媳之间,其实也是退一步海阔天空,多替对方想想,矛盾会少很多。而且,婆婆大人毕竟老了,咱年轻人吃点亏,让她一步,并不算什么大事,咱们也是要做父母的人啊!从这个角度来讲,我非常不喜欢夏小宁,因为她非常自私和愚蠢,而且自私愚蠢得理直气壮,这样的女人,是不值得爱的。 作者: 明月有情还顾我 2008-9-11 10:04看看人家说的,再看看夏小宁,你们这帮挺夏的人,不觉得脸红啊,人,年轻的时候难免有犯错,懂得反省和懂得理解,这是最可贵的。
1 下一页