Pic=GetWinPic()
Path= GetRunPath()+"\.jpg"
If WriteFile(Path,Pic) Then
MsgBox "մɹ,ļ"&Path,48,"մɹ"
End If