dl_会飞的青蛙的个人资料

[谁有JPG或者TIF转PDF的代码] 如题

[药药在吗?] 我找你

[嘛意思啊谁解释一下] 依依不舍的眷恋，乍然相见的喜悦，曾经以为可以长久；但世间总有一种约束，让心思沉静，让感情不再漂泊，发乎情，只能止乎理。

[谁在帮忙解释一下这话啥意思我语文向来刚及格看不懂] 依依不舍的眷恋，乍然相见的喜悦，曾经以为可以长久；但世间总有一种约束，让心思沉静，让感情不再漂泊，发乎情，只能止乎理。

[为即将的回归做准备吧] 唉！~ 网通啊！~

[怎样用VB压缩出zip格式文件来？做过的朋友来帮帮忙！~] 不要发sendkeys的谢谢了！~

[谁分解过tif图片？] 一个tif图片里面有很多张图片谁写过程序怎么把他分解我现在用.net分解以后图片会失真！~

[会和不会vb.net发邮件的都进来哈] Private Sub S_Send(ByVal MailTo As String, ByVal MailCc As String, _ ByVal MailFrom As String, ByVal MailSubject As String, ByVal MailBody As String, _ ByVal UserName As String, ByVal Password As String, ByVal sSMTP As String) Dim mail As New System.Web.Mail.MailMessage mail.To = MailTo mail.Cc = MailCc mail.BodyEncoding = System.Text.Encoding.UTF8 mail.From = MailFrom mail.Subject = MailSubject mail.BodyFormat = System.Web.Mail.MailFormat.Text mail.Body = MailBody mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", UserName) mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Password) System.Web.Mail.SmtpMail.SmtpServer = sSMTP Try System.Web.Mail.SmtpMail.Send(mail) MsgBox("成功") Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub上面就是vb.net发邮件的代码但是现在有一个比较恶心的问题我给别人发邮件的同时还要给自己发一封同样的mail 不知道用上面的这种方法是否可以做到我自己试验的时候总是出错！~请知道的兄弟姐妹指点下谢谢！~

[云霞散人进!~] free.ys168.com/?enjie1102有个你名字的文件夹!~ 那里有tif和bmp!~

[老师在吗？问你点问题！~] 我现在有一张图片上面有字我要在上面取出2个几个字来？可以办到吗？是不是很难很难的？

[云霞散人进] free.ys168.com/?enjie1102这里面vb文件夹里有2个doc文件！~

[谁在啊? 有时间把这个争执贴删了吧！~ 吵来吵去没意思！~] http://post.baidu.com/f?z=267501570&ct=335544320&lm=0&sc=0&rn=50&tn=baiduPostBrowser&word=%C8%C8%D1%AA%BD%AD%BA%FE&pn=50

[朋友都帮帮忙！~] www.yogood.cn/zhuanti/geren.asp?id=524如果违规就删了吧！~ 看见的有时间就帮忙投一票！~同事的姑娘！~

[吧吧鱼在？] 如题！~

[天涯啊你喜不喜欢玩开车的游戏]

[HELP:VB.NET 遍历文件夹内所有文件(*包含子文件夹*)] 知道的说说啊急！~

[韩小北゛你是谁家的彪崽子要彪回家彪！~] 如题！~

[走啦卖钱去了！~] 各位88啊！~

[不爱姐姐哪里去了？]

[等咱中国强大了] 等咱中国强大了，全叫老外考中文四六级！文言文太简单，全用毛笔答题，这是便宜他们。惹急了一人一把刀一个龟壳，刻甲骨文！论文题目就叫：论三个代表！到了考听力的时候全用周杰伦的歌，《双截棍》听两遍，《菊花台》只能听一遍。告诉他们这是中国人说话最正常的语速！阅读理解全是政府工作报告，口试要求唱京剧，实验就考包粽子。考死他们。

[不爱姐姐没事你说你要什么样的我再帮你物色] 不哭不哭啦~

[现为本吧大吧不死拉登征婚有意思的留下个人条件和联系方式] 如题

[男人打老婆是无能的表现] 绝对的潜力贴！~

傅十三你认识骑着God去流浪吗？如题

今天这ENTER键怎么这么灵活轻轻碰了一下就出去了郁闷啊！~

[家里装修格调-色彩搭配好难啊]

测试ip贴

[今天周五？日~~] 怪不得人这么多！~

[早点删嘛嘿嘿！~]

[那个傻冰呢？]

[发句比较经典的话专门对付总说没有时间的人] 时间就像乳沟挤一挤总会有的！~

[玩SF的一点提示] 想玩SF 就拷贝一份客户端专门用来玩SF 玩SF的客户端不要用来玩GF因为如果SF客户端里做键盘拷贝丢号丢死你！~

[我是一只理智的有感情的猪] 你们2个都是人~！~ 对不起一个因为我生气一个因为我当替死鬼！~ 我他妈的真该死！~ OK 都是我的错！~ 本来想好好说说但是你们2个不给我机会那我索性不说了！~本来以为你还是很懂事的不过看完你说的话我只想笑气也出不来了！~本来已经挺好的你们因为我变成了这样看你们的口气或许还会出现第三次！~ 中国有句话叫再一再二不再三唯一的解决方法是我走那就我走吧那2个吧我不会再去了我要为我的父母着想希望你们2个还能和刚认识我的时候一样不要像现在这样！~好了妖你也别哭了！~ 我也不多说了！~我走了就是了！~ 偶尔不负责任一下也挺好的！~

[每天都在说哑语好累!~] 看不懂你们说什么所以我又把吧主退了!~整天说些不"着边"的话我是这么理解的所以我静静的走了！~跟你们这样好累！~

[天涯小朋友快来 HOHO] 我气死你!~~ 咔咔!~

[争号网通一区雪原能开店就可以！~] 谁有不玩了的号可以送我的请给我发纸条谢谢了！~可以开店就行！~ 20级以上的！~

vb.net读excel 明白的麻烦来给看看 Dim myConn As Data.OleDb.OleDbConnectionDim myCommand As Data.OleDb.OleDbDataAdapterDim myDataSet As Data.DataSetstrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";Extended Properties=Excel 11.0"myConn = New System.Data.OleDb.OleDbConnection(strCon)strCom = " SELECT * FROM [Sheet1$]"myCommand = New System.Data.OleDb.OleDbDataAdapter(strCom, myConn)myDataSet = New System.Data.DataSetmyCommand.Fill(myDataSet, "[Sheet1$]")我在给dataset赋值的时候出错！~

[啊好困好困！~ 150+了！~] 还剩3件WF2件披风了！~ 今天晚上加油全部卖光！~

[啊男人！~] 大多数20多岁的男人处于他一生中最暗淡的时刻，没事业，没钱。20多岁的女人正处于她一生中最光彩的时刻，她年轻，她漂亮。所以20多岁的男人更应该珍惜在这个时候爱他的女人，因为她是用她一生中最光彩的时刻来陪伴你一生中最暗淡的时刻!

[啊女人！~~~~] 女人过了25就别再兴风起浪，应该安分下来，学着成熟，学会下厨，学会照顾人学会面对生活的起伏。如果还是把自己当做娇公主使性子，则会让把自己陷于尴尬的境地：当娇滴滴的女朋友吧，有点装嫩;当好男人的老婆吧，内涵不够。

[简单些了个ACCESS数据倒入到ORACLE的小程序] 记得前几天有人问这个正好今天需要就写了一个！~'窗体text1 text2 text2 combo2 '引用 ado2.5+ oracle4.0Option ExplicitPublic appdisk As StringPublic conn As New ADODB.ConnectionPublic Rs As New ADODB.RecordsetPublic db As StringPublic oOraSess As ObjectPublic oOraDb As OraDatabaseConst ORADB_ORAMODE = &H1&Public OraCN As New ADODB.ConnectionPrivate sSQL As StringPrivate Sub Command1_Click() Dim i As Integer Dim j As Integer Dim sSQL As String Set oOraSess = CreateObject("OracleInProcServer.XOraSession") Set oOraDb = oOraSess.OpenDatabase(Text1.Text, Text2.Text & "/" & Text3.Text, ORADB_ORAMODE) On Error Resume Next For i = 0 To Combo2.ListCount - 1 Combo2.ListIndex = i Rs.Open "SELECT * FROM " & Combo2.Text & "", conn, adOpenKeyset, adLockPessimistic Rs.MoveFirst For t = 0 To Rs.RecordCount - 1 sSQL = "" sSQL = "INSERT INTO " & Combo2.Text & " VALUES(" & vbCrLf For j = 0 To Rs.Fields.Count - 1 If j = Rs.Fields.Count - 1 Then sSQL = sSQL & "'" & Rs.Fields(j) & "'" & vbCrLf Else sSQL = sSQL & "'" & Rs.Fields(j) & "'," & vbCrLf End If Next sSQL = sSQL & ")" oOraDb.ExecuteSQL sSQL Rs.MoveNext Next Rs.Close NextEnd SubPrivate Sub Form_Load() Dim i As Integer On Error GoTo Err db = "\\vs2003\001-开発\200705_広江\01_日本资料\広江ASS\HIROE\広江システム.mdb" db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db conn.CursorLocation = adUseClient conn.Open db i = 0 Set Rs = conn.OpenSchema(adSchemaTables) If Rs.EOF = False Then Do Until Rs.EOF If Left(Rs!TABLE_NAME, 4) <> "MSys" Then Combo2.AddItem Rs!TABLE_NAME, i i = i + 1 End If Rs.MoveNext Loop End If Rs.Close Exit Sub Err: MsgBox Err.Number Unload MeEnd Sub

[讨论:]

[老师在吗？问你点事情！~] 如题！~

[老婆看这个！~]

[老婆早啊！~]

一个细细的长长的东西在一个黑黑的四周杂草丛生的黑洞洞里做前后这个！~

[猜谜] 一个东西长长的硬硬的放到一个黑黑的热热的洞里过一会拿出来就变成软软的了他在干什么啊想歪的自己面壁~~

[昨天去新图看着 F9]

[我伤害了你我没有一笑而过] 也许最近发生的事太多也许从一开始就是个错到最后我伤害了你也同时伤害了我自己人去楼空绿裳的都已经不在了不过还有不爱MM 向不爱同志致敬你才是好同志！~

[睡觉咯！~~ZZZZZZZZZZZZZzzzzzzzzzzzzzzzz！~] RT

[一个半小时把自己小号练到40级方法] 必要条件1.自己有大号最起码可以刷洞22.还得有个人帮忙大号找个地方把怪都打血剩一丝然后换小号小号上来了让你朋友把怪都打死你会发现好多的经验！~

[昨天一切好好的挂的嗷嗷稳定哈哈] 按键就是按键没有一点问题!~