set ie = createobject("internetexplorer.application")
ie.visible = false
ie.navigate "http://www.bathome.net"
do until ie.readystate = 4
wscript.sleep 200
loop
Set FSO=CreateObject("Scripting.FilesystemObject")
DIM N,S,var
for i = 0 to 47 step 2 
      N = i \ 16
      if i MOD 16 = 0 Then
         var = var & "[" & ie.document.getElementById("homegrids_t_" & N + 1).outerText & "]" & vbcr & vblf
      End If
      if N <> 0 Then
           Str = "主题：" & ie.document.links(i+28).innertext & " " & "最新回复："
           ELSE Str = "主题：" & ie.document.links(i+28).innertext & " " &"发帖ID："
      End If 
      var= var & str & ie.document.links(i+27).outerText & " " & "URL：" & ie.document.links(i+28).href & vbcr & vblf
Next
FSO.OpenTextFile("Rult.txt",2,True).WriteLine var
ie.quit
Set ie = Nothing				
复制代码

@ECHO OFF
set url="http://bbs.bathome.net/"
set s1=最新主题&set "s2=热门主题|最新回复"
set "s=s/<[^\/]*'>([^\/]*)<[^']*'([^']*)'[^<]*'>([^<]*)<\/a><\/li>"
curl -s "%URL%"|sed -r -n "/%s1%|%s2%/!d;s/<[^<]*>//g;s/\r|\n//;s/^/[/;s/$/]/;N;/%s1%/%s%/主题:\3\t发帖ID:\1\tURL: %URL:/=\/%\2\n/g;/%s2%/%s%/主题:\3\t最新回复:\1\tURL:%URL:/=\/%\2\n/g;p" >Rult.txt
pause
复制代码

curl bathome.net | sed -n -r "s|^.*homegrids_t_[123]\x22>([^\n\r<]+).*$|[\1]|p; s|(<li>[^?]+\?)(uid[^>]+>)|\1发帖ID：|g; s|(<li>[^?]+\?)(username[^>]+>)|\1最新回复：|g; s|<li>[^?]+\?([^<]+)[^']+'([^']+)'[^']+'([^']+)[^<]+</a></li>|主题：\3 \1 URL：http://bathome.net/\2\n|gp" >bathome.txt
复制代码