{"id":2569,"date":"2016-06-25T10:51:33","date_gmt":"2016-06-25T15:51:33","guid":{"rendered":"http:\/\/itsoftware.com.co\/content\/?p=2569"},"modified":"2019-05-18T13:07:15","modified_gmt":"2019-05-18T18:07:15","slug":"aplicacion-vbs-para-speed-test","status":"publish","type":"post","link":"https:\/\/itsoftware.com.co\/content\/aplicacion-vbs-para-speed-test\/","title":{"rendered":"Speed Test: una peque\u00f1a Aplicaci\u00f3n VBS para medir velocidad de internet"},"content":{"rendered":"<p>Este es un ejemplo de una aplicaci\u00f3n VBS para realizar mediciones de velocidad (speed test) de una conexi\u00f3n a internet. Es una aplicaci\u00f3n VBS que corre directamente en Windows bajo la extensi\u00f3n .vbs o convirti\u00e9ndola en un ejecutable como .exe.<\/p>\n<figure id=\"attachment_2570\" aria-describedby=\"caption-attachment-2570\" style=\"width: 658px\" class=\"wp-caption aligncenter\"><a href=\"https:\/\/itsoftware.com.co\/content\/wp-content\/uploads\/2016\/06\/velocidad-de-internet.jpg\"><img fetchpriority=\"high\" decoding=\"async\" class=\"wp-image-2570 \" src=\"https:\/\/itsoftware.com.co\/content\/wp-content\/uploads\/2016\/06\/velocidad-de-internet-300x109.jpg\" alt=\"Velocidad de Internet o Speed Test\" width=\"658\" height=\"239\" \/><\/a><figcaption id=\"caption-attachment-2570\" class=\"wp-caption-text\">Aplicaci\u00f3n VBS para Speed Test o Velocidad de Internet<\/figcaption><\/figure>\n<p><!--more--><\/p>\n<p>Esta aplicaci\u00f3n para speed test necesita de un sitio ftp a donde podremos subir y bajar un archivo con un tama\u00f1o determinado. En este ejemplo el sitio ftp tiene direcci\u00f3n xxx.xxx.xxx.xxx, usuario user y contrase\u00f1a clave<\/p>\n<pre>Const ForWriting = 2\n\nDim objOutStream, objjFSO, objShell\nDim size,StartTime,EndTime,Lapse\nDim fso\nDim c ' File contents (Array)\nDim i ' Loop counter\nDim p ' Position of search string\nDim s ' Search String\ndim r\n\n\nSet objShell = CreateObject(\"WScript.Shell\")\n\nobjShell.Run \"%comspec% \/c del empty*\", 0, true\nobjShell.Run \"%comspec% \/c del result_*\", 0, true\nobjShell.Run \"%comspec% \/c del test_file*\", 0, true\n\nSet objFSO = CreateObject(\"Scripting.FileSystemObject\")\nSet objOutStream = objFSO.OpenTextFile(\"empty.txt\", ForWriting, True)\nWith objOutStream\n\u00a0\u00a0\u00a0 .WriteLine \"USER user\"\u00a0\u00a0 ' USERNAME\n\u00a0\u00a0\u00a0 .WriteLine \"clave\"\u00a0\u00a0\u00a0\u00a0 ' Password\n\u00a0\u00a0\u00a0 .WriteLine \"binary\"\n\u00a0\u00a0\u00a0 .WriteLine \"get test_file2M\"\u00a0\u00a0\u00a0 ' Get all files with today's date in it\n\u00a0\u00a0\u00a0 .WriteLine \"quit\"\n\u00a0\u00a0\u00a0 .Close\nEnd With\n\nretorno=objShell.Run (\"%comspec% \/c FTP -n -i -s:\" &amp; \"empty.txt\" &amp; \" \" &amp; \"xxx.xxx.xxx.xxx &gt; result_down.txt\", 0, True)\n\ns = \"ftp:\"\n\nSet fso = CreateObject(\"Scripting.FileSystemObject\")\n\nc = Split(fso.OpenTextFile(\"result_down.txt\", 1, False).ReadAll, vbCrLf)\n\nFor i = 0 To UBound(c)\np = InStr(1, c(i), s, vbTextCompare)\nIf p &gt; 0 Then\nr=Split(c(i),\" \")\nspeed1= left(r(6),len(r(6))-1)\nspeed1= Replace(speed1,\".\",\",\")\nEnd If\nNext\n\nSet fso = Nothing\nSet c= nothing\n\nSet objFSO1 = CreateObject(\"Scripting.FileSystemObject\")\nSet objOutStream1 = objFSO.OpenTextFile(\"empty1.txt\", ForWriting, True)\n\nWith objOutStream1\n\u00a0\u00a0\u00a0 .WriteLine \"USER user\"\u00a0\u00a0 ' USERNAME\n\u00a0\u00a0\u00a0 .WriteLine \"clave\"\u00a0\u00a0\u00a0\u00a0 ' Password\n\u00a0\u00a0\u00a0 .WriteLine \"binary\"\n\u00a0\u00a0\u00a0 .WriteLine \"put test_file_up\"\u00a0\u00a0\u00a0 ' Get all files with today's date in it\n\u00a0\u00a0\u00a0 .WriteLine \"quit\"\n\u00a0\u00a0\u00a0 .Close\nEnd With\n\nSet objShell1 = CreateObject(\"WScript.Shell\")\nobjShell1.Run \"%comspec% \/c fsutil file createnew test_file_up 2097152\", 0, true\nretorno=objShell1.Run (\"%comspec% \/c FTP -n -i -s:\" &amp; \"empty1.txt\" &amp; \" \" &amp; \"xxx.xxx.xxx.xxx &gt; result_up.txt\", 0, true)\n\nSet fso = CreateObject(\"Scripting.FileSystemObject\")\n\nc = Split(fso.OpenTextFile(\"result_up.txt\", 1, False).ReadAll, vbCrLf)\n\nFor i = 0 To UBound(c)\np = InStr(1, c(i), s, vbTextCompare)\nIf p &gt; 0 Then\nr=Split(c(i),\" \")\nspeed2= left(r(6),len(r(6))-1)\nspeed2= Replace(speed2,\".\",\",\")\nEnd If\nNext\n\nmensaje1=\"Velocidad de bajada: \" &amp; formatnumber(speed1*8\/1024,2) &amp; \" Mbps\" &amp; vbCrLf\nmensaje2=\"Velocidad de subida: \" &amp; formatnumber(speed2*8\/1024,2) &amp; \" Mbps \"\nMsgBox\u00a0 mensaje1 &amp; mensaje2 ,4096,\"Prueba de Velocidad ITSoftware SAS\"\n\nobjShell.Run \"%comspec% \/c del empty*\", 0, true\nobjShell.Run \"%comspec% \/c del result_*\", 0, true\nobjShell.Run \"%comspec% \/c del test_file*\", 0, true<\/pre>\n<p>La funci\u00f3n de ese programa es descargar el archivo test_file2M\u00a0del sitio ftp, tomar los resultados de la medici\u00f3n de velocidad de la transferencia, luego crear otro archivo de 2MB llamado test_file_up, subirlo\u00a0al sitio ftp y finalmente tomar los resultados de esta segunda medida, que se han guardado en un archivo de texto.<\/p>\n<p>Una vez tomados estos valores, ya tenemos los valores de upload y download (subida y bajada), para mostrarlos o guardarlos en un archivo o base de datos.<\/p>\n<p>Este es un servicio de divulgaci\u00f3n de conocimiento de <a href=\"http:\/\/itsoftware.com.co\">ITSoftware SAS<\/a>.<\/p>\n<h3>Si te ha gustado este art\u00edculo, por favor no te olvides de compartirlo en las redes sociales.\u00a0 Thks\u00a0 \ud83d\ude42<\/h3>\n","protected":false},"excerpt":{"rendered":"<p>Este es un ejemplo de una aplicaci\u00f3n VBS para realizar mediciones de velocidad (speed test) de una conexi\u00f3n a internet. Es una aplicaci\u00f3n VBS que corre directamente en Windows bajo[&#8230;]<\/p>\n","protected":false},"author":1,"featured_media":8155,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[305,6,521],"tags":[726,199,724,722,720,721,723,725],"class_list":["post-2569","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-automatizacion","category-programacion","category-software","tag-aplicacion-vbs","tag-desarrollo-software-bogota","tag-programa-speed-test","tag-rate-script","tag-script-vbs","tag-script-velocidad","tag-test-velocidad","tag-vbs-speed-test"],"aioseo_notices":[],"jetpack_featured_media_url":"https:\/\/itsoftware.com.co\/content\/wp-content\/uploads\/2016\/06\/vbs-speed-test.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts\/2569","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/comments?post=2569"}],"version-history":[{"count":0,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts\/2569\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/media\/8155"}],"wp:attachment":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/media?parent=2569"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/categories?post=2569"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/tags?post=2569"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}