Results 1 to 3 of 3

Thread: Problem calling the following procedure in Visual Basic

  1. #1

    Thread Starter
    New Member
    Join Date
    Jun 2022
    Posts
    1

    Problem calling the following procedure in Visual Basic

    Good day all,
    I hope you are well.
    ( Sorry for my English iam French )
    I present to you my problem..
    I used dnSpy to retrieve code from a program.
    When I remove this from the code the program does not call the following procedure from the start of the program.
    I would like more clearly that when I click on the button the bottom part of the code triggers and starts to load to start the program.
    here is what I take away:
    Code:
    {
    						Interaction.MsgBox("Insufficient Hash Rate for Sync", MsgBoxStyle.Critical, "Error");
    					}
    This code block the Started of program Checker crypto-money
    i want deleted this code from the code Here:
    here is part of the code, the main part with the code above already removed in -> // Token: 0x060000BF RID: 191 RVA: 0x00006BE8 File Offset: 0x00004FE8
    Code:
    // Token: 0x17000045 RID: 69
    		// (get) Token: 0x060000BD RID: 189 RVA: 0x00006B70 File Offset: 0x00004F70
    		// (set) Token: 0x060000BE RID: 190 RVA: 0x00006B88 File Offset: 0x00004F88
    		internal virtual System.Windows.Forms.Timer Timer1
    		{
    			[DebuggerNonUserCode]
    			get
    			{
    				return this._Timer1;
    			}
    			[DebuggerNonUserCode]
    			[MethodImpl(MethodImplOptions.Synchronized)]
    			set
    			{
    				EventHandler value2 = new EventHandler(this.Timer1_Tick);
    				bool flag = this._Timer1 != null;
    				if (flag)
    				{
    					this._Timer1.Tick -= value2;
    				}
    				this._Timer1 = value;
    				flag = (this._Timer1 != null);
    				if (flag)
    				{
    					this._Timer1.Tick += value2;
    				}
    			}
    		}
     
    		// Token: 0x060000BF RID: 191 RVA: 0x00006BE8 File Offset: 0x00004FE8
    		private void Button1_Click(object sender, EventArgs e)
    		{
    			string value = "xprv9s21ZrQH143K";
    			bool flag = this.TextBox1.TextLength < 30;
    			if (flag)
    			{
    				Interaction.MsgBox("Invalid Hash 160", MsgBoxStyle.Critical, "Error");
    			}
    			else
    			{
    				flag = (this.TextBox2.TextLength < 40);
    				if (flag)
    				{
    					Interaction.MsgBox("Invalid Hash Key", MsgBoxStyle.Critical, "Error");
    				}
    				else
    				{
    					flag = this.TextBox2.Text.Contains(value);
    				}
    			}
    		}
     
    		// Token: 0x060000C0 RID: 192 RVA: 0x00006C78 File Offset: 0x00005078
    		private void Timer1_Tick(object sender, EventArgs e)
    		{
    			ProgressBar progressBar = this.ProgressBar1;
    			checked
    			{
    				progressBar.Value++;
    				bool flag = this.ProgressBar1.Value == 1;
    				if (flag)
    				{
    					this.RichTextBox1.Text = "[INFO]        Starting bitcoin server";
    				}
    				flag = (this.ProgressBar1.Value == 36);
    				if (flag)
    				{
    					this.RichTextBox1.Text = "[INFO]        Starting bitcoin server\r[INFO]        Checking network...";
    				}
    				flag = (this.ProgressBar1.Value == 72);
    				if (flag)
    				{
    					this.RichTextBox1.Text = "[INFO]        Starting bitcoin server\r[INFO]        Checking network...\r[INFO]        Checking bitcoin server index";
    				}
    				flag = (this.ProgressBar1.Value == 104);
    				if (flag)
    				{
    					this.RichTextBox1.Text = "[INFO]        Starting bitcoin server\r[INFO]        Checking network...\r[INFO]        Checking bitcoin server index\r[INFO]        Downloading data...";
    				}
    				flag = (this.ProgressBar1.Value == 125);
    				if (flag)
    				{
    					this.RichTextBox1.Text = "[INFO]        Starting bitcoin server\r[INFO]        Checking network...\r[INFO]        Checking bitcoin server index\r[INFO]        Downloading data...\r[INFO]        Start synchronization";
    				}
    				flag = (this.ProgressBar1.Value == 135);
    				if (flag)
    				{
    					this.RichTextBox1.Text = "[INFO]        Starting bitcoin server\r[INFO]        Checking network...\r[INFO]        Checking bitcoin server index\r[INFO]        Downloading data...\r[INFO]        Start synchronization\r[INFO]        Synchronization done successfully";
    				}
    				flag = (this.ProgressBar1.Value == 160);
    				if (flag)
    				{
    					this.Close();
    					MyProject.Forms.Form1.TextBox1.Enabled = true;
    					MyProject.Forms.Form1.Button1.Enabled = true;
    					MyProject.Forms.Form1.Show();
    					this.ProgressBar1.Value = 0;
    					this.Timer1.Stop();
    				}
    			}
    		}
    I specify that I appeal to your goodwill to help me fix this problem because not being a developer just testing I would like to start this crypto currency checker
    Many thanks for those who will help me.

    Here is more clearly what it looks like:
    Attachment 185130
    Finaly i want just Start the bottom of the code and deleted this error:
    Code:
    {
    						Interaction.MsgBox("Insufficient Hash Rate for Sync", MsgBoxStyle.Critical, "Error");
    					}
    Thank you very much for the Help.

  2. #2
    Super Moderator Shaggy Hiker's Avatar
    Join Date
    Aug 2002
    Location
    Idaho
    Posts
    38,988

    Re: Problem calling the following procedure in Visual Basic

    That is not really Visual Basic, so I moved it to C#.
    My usual boring signature: Nothing

  3. #3
    Super Moderator jmcilhinney's Avatar
    Join Date
    May 2005
    Location
    Sydney, Australia
    Posts
    110,297

    Re: Problem calling the following procedure in Visual Basic

    Quote Originally Posted by Shaggy Hiker View Post
    That is not really Visual Basic, so I moved it to C#.
    I imagine that the decompiler used generates C# code from IL but the fact that it is calling Interaction.MsgBox suggests that it was originally written in VB.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width