DLINK-DI-624+A掉包掉线的解决方法!

DLink-DI-624+A,网上百度GOOGLE搜索一下,一大堆人在喊掉线+掉包!
我的DLINK-DI624+A到手后才发现掉包非常的严重,无法正常浏览网页,连QQ都掉线更别说下载了,前两天更离谱,1分钟掉线1次,拔掉电源再接上就又恢复正常,过一分钟再掉,反反复复八九次,实在是忍无可忍。
网上找了半天,什么刷固件,改MTU的值,全部没有用,依旧掉线,很烦很讨厌!
终于,试了半天,解决方法在信道的上,改变默认的信道,一切恢复正常。
改掉默认的信道,网络基本不掉包了,很稳定。

  1. Ping statistics for 192.168.0.1:
  2.     Packets: Sent = 100, Received = 95, Lost = 5 (5% loss),
  3. Approximate round trip times in milli-seconds:
  4.     Minimum = 0ms, Maximum = 66ms, Average = 3ms

DLINK-DI-624+A
DLINK-DI-624+A

linux ftp命令 传输与下载

linux下用过scp、rsync,还真没用过直接命令行ftp传东西…

  1. ftp ipaddress
  2. user:
  3. passwd:
  4. ftp> prompt (关闭覆盖提示)
  5. Interactive mode off.
  6. ftp> mput *
  7. 上传所有当前路径下的文件
  8.  
  9. 下载就是getmget
  10. 下载远程文件到本地 单个文件就get,所有文件就mget
  11. 先关闭提示
  12. ftp> prompt
  13. ftp> mget *

ubuntu 9.04下firefox无法播放tudou及其他flash的解决办法

使用新立得软件包管理器删除这两个插件”swfdec-mozilla” “mozilla-plugin-gnash”
然后安装 ” flashplugin- nonfree ”
再安装adobe公司的flash就可以,或者打开有flash的网站,照着提示安装插件即可。
装完后 flash中文有乱码,进入 /etc/fonts/conf.d/
然后 sudo rm -rf 49-sansserif.conf
重启firefox一切恢复正常!

超频3点点 10寸上网本专用散热架

超频3 点点 10寸上网本专用散热架,带一个小风扇,刚用一次就不转了,估计烧掉了… 质量一般,55元购入,要求不高,能散热就好,颜色也漂亮,发图纪念一下
超频3点点
超频3点点
超频3点点
超频3点点

vb批量修改access数据库

公司给个任务,在某个路径下,所有.abc为后缀文件名为ACCESS数据库的文件,默认有一行hello的用户的记录,密码是123123123,批量把这行记录拿掉。
记录一下,以后省得再弄,不太懂vb弄了个灰头土脸,再回头看看以前那公司的所谓的维护网管,真不懂他们能“维护”什么东西,无论是windows还是linux在我看来。

  1. Dim objFSO
  2. Dim ofolder
  3. Dim objStream
  4. Dim strSearch
  5. Dim strfolderSearch
  6. Set objFSO = CreateObject("scripting.filesystemobject")
  7. Set objStream = objFSO.createtextfile("c:\resolved.txt", True)
  8. strfolderSearch = "E:\wwwroot"
  9. strSearch = ".abc"
  10. strLen=Len(strSearch)
  11. CheckFolder (objFSO.getfolder(strfolderSearch)), objStream
  12. MsgBox "File Search Completed." + vbCr + "Please check c:\resolved.txt for details."
  13. Sub CheckFolder(objCurrentFolder, objtxtFile)
  14.         On Error Resume Next
  15.     Dim strTemp
  16.     Dim strOutput
  17.     Dim objNewFolder
  18.     Dim objFile
  19.     Dim objStream
  20.     For Each objFile In objCurrentFolder.Files
  21.         strTemp = Right(objFile.Name, strLen)
  22.     If UCase(strTemp) = UCase(strSearch) Then
  23.         objtxtFile.writeline CStr(objFile.Path)   
  24.         Dim Conn,SQL
  25.         Dim dbPath,Password
  26.         Set conn = CreateObject("ADODB.Connection")
  27.         dbPath=objFile.Path
  28.         Password="123123123"
  29.         Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&dbPath&";User ID="&param_dbUserID&";Password="&Password
  30.         If Err Then
  31.             objtxtFile.writeline CStr(objFile.Path) + "-----------" + err.tostring"----------Failed !" 
  32.             Err.CLEAR
  33.             Set Conn = NOTHING           
  34.         Else
  35.             Set RS = Conn.Execute("Select * From admin Where name='hello'")
  36.             If RS.recordcount > 0 Then 
  37.                 Conn.Execute("Delete From admin Where name='hello'")
  38.             End If
  39.             Conn.close
  40.         End if
  41.  
  42.     End If
  43.     Next
  44.     For Each objNewFolder In objCurrentFolder.subFolders
  45.         CheckFolder objNewFolder, objtxtFile
  46.     Next
  47. End Sub
2 12»