{"id":218,"date":"2017-05-18T15:08:38","date_gmt":"2017-05-18T15:08:38","guid":{"rendered":"http:\/\/techref.passionwind.org\/?p=218"},"modified":"2017-05-19T09:09:38","modified_gmt":"2017-05-19T13:09:38","slug":"replacing-a-string-each-users-profile","status":"publish","type":"post","link":"http:\/\/techref.camellarry.com\/?p=218","title":{"rendered":"Replacing a string in each user’s profile"},"content":{"rendered":"

This routine replaces a string in the text file user.js<\/em>. \u00a0The file is located in each user’s profile which also contains a random string as part of the path name.<\/p>\n

Imports System.Net<\/span>\r\nImports System.IO<\/span>\r\n\r\nPublic Class Form1<\/span>\r\n\r\nPrivate Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load<\/span>\r\n Dim strPath As String = \"c:\\users\"<\/span>\r\n Dim arrFolders() As String = System.IO.Directory.GetDirectories(strPath)<\/span>\r\n Dim MozPath As String<\/span>\r\n\r\n'----------------------------------------------------------------<\/span>\r\n ' get list of profiles<\/span>\r\n '----------------------------------------------------------------<\/span>\r\n For Each arrFolder As String In arrFolders<\/span>\r\n MozPath = arrFolder & \"\\AppData\\Roaming\\Mozilla\\Firefox\\Profiles\\\"<\/span>\r\n\r\nIf My.Computer.FileSystem.DirectoryExists(MozPath) = True Then<\/span>\r\n Dim arrGUIDpath() As String = System.IO.Directory.GetDirectories(MozPath)<\/span>\r\n\r\nFor Each arrGUIDfolder As String In arrGUIDpath<\/span>\r\n If My.Computer.FileSystem.FileExists(arrGUIDfolder & \"\\user.js\") = True Then<\/span>\r\n Console.WriteLine(\"notepad \" & arrGUIDfolder & \"\\user.js\")<\/span>\r\n\r\n'----------------------------------------------------------------<\/span>\r\n ' 1. rename the user.js file<\/span>\r\n ' 2. replace the proxy defintion string tinto user.js<\/span>\r\n '----------------------------------------------------------------<\/span>\r\n Try<\/span>\r\n My.Computer.FileSystem.DeleteFile(arrGUIDfolder & \"\\user2.js\")<\/span>\r\n Catch ex As Exception<\/span>\r\n Application.DoEvents()<\/span>\r\n End Try<\/span>\r\n\r\nMy.Computer.FileSystem.CopyFile(arrGUIDfolder & \"\\user.js\", arrGUIDfolder & \"\\user2.js\")<\/span>\r\n\r\nMy.Computer.FileSystem.WriteAllText(arrGUIDfolder & \"\\user.js\", _<\/span>\r\n My.Computer.FileSystem.ReadAllText(arrGUIDfolder & \"\\user2.js\").Replace(\"user_pref(\"\"network.proxy.type\"\", 4);\", _<\/span>\r\n \"user_pref(\"\"network.proxy.type\"\", 0);\"), False)<\/span>\r\n End If<\/span>\r\n\r\n'----------------------------------------------------------------<\/span>\r\n ' clean up to avoid confusion in the future<\/span>\r\n '----------------------------------------------------------------<\/span>\r\n Application.DoEvents()<\/span>\r\n\r\nTry<\/span>\r\n My.Computer.FileSystem.DeleteFile(arrGUIDfolder & \"\\user2.js\")<\/span>\r\n Catch ex As Exception<\/span>\r\n Application.DoEvents()<\/span>\r\n End Try<\/span>\r\n Next<\/span>\r\n End If<\/span>\r\n\r\nNext<\/span>\r\n End<\/span>\r\n End Sub<\/span>\r\n\r\nEnd Class<\/span><\/pre>\n","protected":false},"excerpt":{"rendered":"
This routine replaces a string in the text file user.js. \u00a0The file is located in each user’s profile which also contains a random string as part of the path name. Imports System.Net Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim strPath As String = “c:\\users” Dim arrFolders() […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[9],"tags":[12,24,29,87,58,74,76,77,78,80],"class_list":["post-218","post","type-post","status-publish","format-standard","hentry","category-vb-net","tag-net","tag-configure","tag-example","tag-firefox","tag-programming","tag-tutorial","tag-vb","tag-vb-net","tag-visualbasic","tag-windows"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p9t3oE-3w","_links":{"self":[{"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=\/wp\/v2\/posts\/218","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=218"}],"version-history":[{"count":3,"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=\/wp\/v2\/posts\/218\/revisions"}],"predecessor-version":[{"id":275,"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=\/wp\/v2\/posts\/218\/revisions\/275"}],"wp:attachment":[{"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=218"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=218"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/techref.camellarry.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=218"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}